Internet Info 1994 March

home *** CD-ROM | disk | FTP | other *** search

/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / b / vmsmit.mar < prev next >

Wrap

Text File | 1991-02-19 | 428.4 KB | 10,660 lines

; 0001 0 MODULE KERMIT (IDENT = '3.3.128', MAIN = MAIN_ROUTINE, ; 0002 0 ADDRESSING_MODE(EXTERNAL = GENERAL, NONEXTERNAL = GENERAL) ; 0003 0 ) = ; 0004 0 ; 0005 1 BEGIN ; 0006 1 ; 0007 1 BIND ; 0008 1 IDENT_STRING = %ASCID'VMS Kermit-32 version 3.3.128'; ! Ident message ; 0009 1 ; 0010 1 !++ ; 0011 1 ! FACILITY: ; 0012 1 ! KERMIT-32 ; 0013 1 ! ; 0014 1 ! ABSTRACT: ; 0015 1 ! KERMIT-32 is an implementation of the KERMIT protocal to allow the ; 0016 1 ! transfer of files from micro computers to the DECsystem-10, DECSYSTEM-20 ; 0017 1 ! and now the VAX/VMS systems. ; 0018 1 ! ; 0019 1 ! ENVIRONMENT: ; 0020 1 ! User mode ; 0021 1 ! ; 0022 1 ! AUTHOR: Robert C. McQueen, CREATION DATE: 24-January-1983 ; 0023 1 ! ; 0024 1 ! MODIFIED BY: ; 0025 1 ! ; 0026 1 !-- ; 0027 1 ; 0028 1 %SBTTL 'Table of Contents' ; 0029 1 %SBTTL 'Revision History' ; 0030 1 ; 0031 1 !++ ; 0032 1 ! Start of version 1. ; 0033 1 ! ; 0034 1 ! 1.0.000 By: Robert C. McQueen On: 4-Jan-1983 ; 0035 1 ! Create this program. ; 0036 1 ! ; 0037 1 ! 1.0.001 By: Robert C. McQueen On: 4-May-1983 ; 0038 1 ! Allow RECEIVE without a file specification to mean ; 0039 1 ! use what ever the remote says. ; 0040 1 ! ; 0041 1 ! 1.1.002 By: W. Hom On: 6-July-1983 ; 0042 1 ! Implement CONNECT command. ; 0043 1 ! ; 0044 1 ! 1.2.003 By: Robert C. McQueen On: 15-Aug-1983 ; 0045 1 ! Add SET PARITY command and SHOW PARITY to support ; 0046 1 ! eight bit quoting. ; 0047 1 ! ; 0048 1 ! 1.2.004 By: Robert C. McQueen On: 23-August-1983 ; 0049 1 ! Add dummy routine SY_TIME. ; 0050 1 ! ; 0051 1 ! 1.2.005 By: Robert C. McQueen On: 23-August-1983 ; 0052 1 ! Add SET [SEND | RECEIVE] EIGHT-BIT-QUOTE <octal> ; 0053 1 ! command. Add message for SHOW RECEIVE and SHOW SEND parameters ; 0054 1 ! ; 0055 1 ! 1.2.006 By: Robert C. McQueen On: 26-August-1983 ; 0056 1 ! Add BYE, FINISH and LOGOUT commands. These commands call ; 0057 1 ! DO_GENERIC to send generic functions to remote servers. ; 0058 1 ! ; 0059 1 ! 1.2.007 By: Robert C. McQueen On: 16-September-1983 ; 0060 1 ! Implement SY_TIME, and XFR_STATUS routines. ; 0061 1 ! Add more stat type out. ; 0062 1 ! ; 0063 1 ! 1.2.008 By: Robert C. McQueen On: 19-September-1983 ; 0064 1 ! Add the SET RETRY command and the SHOW RETRY command. ; 0065 1 ! ; 0066 1 ! 1.2.009 By: Robert C. McQueen On: 20-September-1983 ; 0067 1 ! Add CRCCLC routine for calculating CRC-CCITT. ; 0068 1 ! Set SET BLOCK_CHECK_TYPE and SHOW BLOCK_CHECK_TYPE commands. ; 0069 1 ! ; 0070 1 ! 1.2.010 By: Nick Bush On: 3-October-1983 ; 0071 1 ! SERVER (in KERMSG) actually returns a value. If it ; 0072 1 ! is "ABORTED", then we should prompt again. This allows ; 0073 1 ! a ^Y typed to the server to put it back into command ; 0074 1 ! level. (If you want to type out statistics or whatever). ; 0075 1 ! ; 0076 1 ! 2.0.011 Release VAX/VMS Kermit-32 version 2.0 ; 0077 1 ! ; 0078 1 ! 2.0.012 By: Nick Bush On: 10-Nov-1983 ; 0079 1 ! Add type out of version number. Also fix some ; 0080 1 ! problems with IBM mode and local echo. ; 0081 1 ! ; 0082 1 ! 2.0.013 By: Nick Bush On: 11-Nov-1983 ; 0083 1 ! Change how debugging output is done so that it ; 0084 1 ! can be redirected to the logical device KER$DEBUG. ; 0085 1 ! If the logical name is defined to be something other ; 0086 1 ! that SYS$OUTPUT, KERMIT will send any debugging output ; 0087 1 ! there. ; 0088 1 ! ; 0089 1 ! 2.0.014 By: Robert C. McQueen On: 16-Nov-1983 ; 0090 1 ! Make sure all message number checks are mod 64. There ; 0091 1 ! were four that weren't. ; 0092 1 ! ; 0093 1 ! 2.0.015 By: Nick Bush On: 17-Nov-1983 ; 0094 1 ! Always clear purge typeahead when posting receive QIO. ; 0095 1 ! Also, clear any typeahead just before sending a packet. ; 0096 1 ! ; 0097 1 ! 2.0.016 By: Nick Bush On: 4-Dec-1983 ; 0098 1 ! Change how binary files are written to (hopefully) improve ; 0099 1 ! the performance. We will now use 510 records and only ; 0100 1 ! write out the record when it is filled (instead of writing ; 0101 1 ! one record per packet). This should cut down on the overhead ; 0102 1 ! substantially. ; 0103 1 ! ; 0104 1 ! 2.0.017 By: Nick Bush On: 9-Dec-1983 ; 0105 1 ! Fix processing for VFC format files. Also fix GET_ASCII ; 0106 1 ! for PRN and FTN record types. Change GET_ASCII so that ; 0107 1 ! 'normal' CR records get sent with trailing CRLF's instead ; 0108 1 ! of <LF>record<CR>. That was confusing too many people. ; 0109 1 ! ; 0110 1 ! 2.0.020 By: Nick Bush On: 9-Dec-1983 ; 0111 1 ! Only abort (when remote) if we seen two control-Y's in ; 0112 1 ! succession. This way a single glitch does not kill us. ; 0113 1 ! ; 0114 1 ! 2.0.021 By: Nick Bush On: 12-Dec-1983 ; 0115 1 ! Add status type-out character (^A), debug toggle ; 0116 1 ! character (^D), and force timeout character (^M) ; 0117 1 ! to those accepted during a transfer when we are remote. ; 0118 1 ! ; 0119 1 ! 2.0.022 By: Nick Bush On: 15-Dec-1983 ; 0120 1 ! Add Fixed record size (512 byte) format for writing files. ; 0121 1 ! This can be used for .EXE files. Also clean up writing ; 0122 1 ! ASCII files so that we don't lose any characters. ; 0123 1 ! ; 0124 1 ! 2.0.023 By: Nick Bush On: 16-Dec-1983 ; 0125 1 ! Add a default terminal name for the communications line. ; 0126 1 ! If KER$COMM is defined, that will be the default. ; 0127 1 ! ; 0128 1 ! 2.0.025 By: Robert C. McQueen On: 22-Dec-1983 ; 0129 1 ! Use RMSG_COUNT and SMSG_COUNT now. ; 0130 1 ! ; 0131 1 ! 2.0.026 By: Nick Bush On: 3-Jan-1984 ; 0132 1 ! Add options for format of file specification to be ; 0133 1 ! sent in file header packets. Also type out full file ; 0134 1 ! specification being sent/received instead of just ; 0135 1 ! the name we are telling the other end to use. ; 0136 1 ! ; 0137 1 ! 2.0.027 By: Nick Bush On: 20-Jan-1984 ; 0138 1 ! Fix reset of parity to use the correct field in the ; 0139 1 ! IO status block from the IO$_SENSEMODE. It was using ; 0140 1 ! the LF fill count instead. ; 0141 1 ! ; 0142 1 ! 2.0.030 By: Nick Bush On: 3-Feb-1984 ; 0143 1 ! Add the capability of receiving a file with a different ; 0144 1 ! name than given by KERMSG. The RECEIVE and GET commands ; 0145 1 ! now really are different. ; 0146 1 ! ; 0147 1 ! 2.0.031 By: Nick Bush On: 4-Feb-1984 ; 0148 1 ! Change connect code to improve response (hopefully ; 0149 1 ! without worsening throughput or runtime requirements). ; 0150 1 ! When either terminal is idle we will be waiting for ; 0151 1 ! a single character with a larger buffered read queued ; 0152 1 ! up immediately after it. ; 0153 1 ! ; 0154 1 ! 2.0.032 By: Nick Bush On: 25-Feb-1984 ; 0155 1 ! Add code for LOCAL and REMOTE commands. These depend ; 0156 1 ! upon support in KERMSG and KERSYS. ; 0157 1 ! ; 0158 1 ! 2.0.033 By: Nick Bush On: 6-March-1984 ; 0159 1 ! Change command input and terminal processing so that ; 0160 1 ! we will always have SYS$OUTPUT and SYS$COMMAND open ; 0161 1 ! when they are terminals, and will also always have ; 0162 1 ! the transfer terminal line open. This makes it ; 0163 1 ! unnecessary for the user to allocate a dialup line ; 0164 1 ! in order to go between CONNECT and a transfer command, ; 0165 1 ! and keep anyone else from grabbing the line between ; 0166 1 ! commands. ; 0167 1 ! Also add the command parsing for the rest of the LOCAL/REMOTE ; 0168 1 ! commands. This makes use of the fact that we have ; 0169 1 ! SYS$COMMAND open to allow us to read passwords without echo. ; 0170 1 ! Commands which should only be done when Kermit is local ; 0171 1 ! (GET, BYE, etc.) will now give an error if the transfer ; 0172 1 ! line is the same as the controlling terminal. ; 0173 1 ! SEND will now check for the files existance before calling ; 0174 1 ! KERMSG to send it. ; 0175 1 ! ; 0176 1 ! 2.0.034 By: Nick Bush On: 7-March-1984 ; 0177 1 ! Default the parity type to be that of the default transfer ; 0178 1 ! line. This should make things simpler for systems which use ; 0179 1 ! parity by default. ; 0180 1 ! ; 0181 1 ! 2.0.035 By: Nick Bush On: 8-March-1984 ; 0182 1 ! Add LOG SESSION command to set a log file for CONNECT. ; 0183 1 ! While we are doing so, clean up the command parsing a little ; 0184 1 ! so that we don't have as many COPY_xxx routines. ; 0185 1 ! ; 0186 1 ! 2.0.036 By: Nick Bush On: 15-March-1984 ; 0187 1 ! Fix PUT_FILE to correctly handle carriage returns which are ; 0188 1 ! not followed by line feeds. Count was being decremented ; 0189 1 ! Instead of incremented. ; 0190 1 ! ; 0191 1 ! 2.0.037 By: Robert C. McQueen On: 20-March-1984 ; 0192 1 ! Fix call to LOG_OPEN for debug log file. ; 0193 1 ! Module: KERTRM. ; 0194 1 ! ; 0195 1 ! 2.0.040 By: Nick Bush On: 22-March-1984 ; 0196 1 ! Fix processing of FORTRAN carriage control to handle lines ; 0197 1 ! which do not contain the carriage control character (i.e., zero ; 0198 1 ! length records). Previously, this type of record was sending ; 0199 1 ! infinite nulls. ; 0200 1 ! ; 0201 1 ! 2.0.041 By: Nick Bush On: 26-March-1984 ; 0202 1 ! Add SET PROMPT command. ; 0203 1 ! ; 0204 1 ! 2.0.042 By: Nick Bush On: 26-March-1984 ; 0205 1 ! Fix connect processing to make it easy to type messages ; 0206 1 ! on the user's terminal while connected. Use this ; 0207 1 ! to type messages when log file stopped and started. ; 0208 1 ! Include the node name in the messages to keep ; 0209 1 ! users who are running through multiple Kermit's from ; 0210 1 ! getting confused. ; 0211 1 ! ; 0212 1 ! 2.0.043 By: Nick Bush On: 28-March-1984 ; 0213 1 ! Fix SET PARITY ODD to work. Somehow, the table entry ; 0214 1 ! had PR_NONE instead of PR_ODD. Also add status type ; 0215 1 ! out and help message to connect command. ; 0216 1 ! ; 0217 1 ! 2.0.044 By: Nick Bush On: 28-March-1984 ; 0218 1 ! Fix SET SEND START_OF_PACKET to store in SND_SOH instead ; 0219 1 ! of RCV_SOH. Also, set TY_FIL false before calling FILE_OPEN ; 0220 1 ! to check for existence of send files. ; 0221 1 ! ; 0222 1 ! 3.0.045 Start of version 3. ; 0223 1 ! ; 0224 1 ! 3.0.046 By: Nick Bush On: 29-March-1984 ; 0225 1 ! Fix debugging log file to correctly set/clear file open ; 0226 1 ! flag. Also make log files default to .LOG. ; 0227 1 ! ; 0228 1 ! 3.0.047 By: Nick Bush On: 30-March-1984 ; 0229 1 ! Fix SEND command processing to save and restore the file ; 0230 1 ! specification over the call to FILE_OPEN, since FILE_OPEN ; 0231 1 ! rewrites it with the resulting file name, losing any ; 0232 1 ! wild-cards. ; 0233 1 ! ; 0234 1 ! 3.0.050 By: Nick Bush On: 2-April-1984 ; 0235 1 ! Add SET SERVER_TIMER to determine period between idle naks. ; 0236 1 ! Also allow for a routine to process file specs before ; 0237 1 ! FILE_OPEN uses them. This allows individual sites to ; 0238 1 ! restrict the format of file specifications used by Kermit. ; 0239 1 ! ; 0240 1 ! 3.0.051 By: Nick Bush On: 2-April-1984 ; 0241 1 ! Fix command scanning to correctly exit after performing ; 0242 1 ! a single command when entered with a command present. ; 0243 1 ! ; 0244 1 ! 3.1.052 By: Nick Bush On: 3-July-1984 ; 0245 1 ! Fix KERCOM's definition of MAX_MSG to allow for all characters ; 0246 1 ! of packet to fit into buffers, not just the counted ones. ; 0247 1 ! ; 0248 1 ! 3.1.053 By: Robert C. McQueen On: 9-July-1984 ; 0249 1 ! Fix FORTRAN carriage control processing to pass along ; 0250 1 ! any character from the carriage control column that is ; 0251 1 ! not really carriage control. ; 0252 1 ! ; 0253 1 ! 3.1.054 By: Nick Bush On: 13-July-1984 ; 0254 1 ! Change TERM_OPEN to take an argument which determines ; 0255 1 ! whether it should post any QIO's. This makes it unnecessary ; 0256 1 ! for TERM_CONNECT to cancel the QIO's, and avoids problems ; 0257 1 ! with DECnet remote terminals. ; 0258 1 ! ; 0259 1 ! 3.1.055 By: Nick Bush On: 27-August-1984 ; 0260 1 ! Clear out FILE_SIZE before processing a RECEIVE command to ; 0261 1 ! ensure that KERMSG doesn't perform a GET. ; 0262 1 ! ; 0263 1 ! 3.1.056 By: Nick Bush On: 28-August-1984 ; 0264 1 ! Add a TAKE (or @) command. Also perform an initialization ; 0265 1 ! file on startup. This file is either VMSKERMIT.INI or ; 0266 1 ! whatever file is pointed to by the logical name VMSKERMIT. ; 0267 1 ! ; 0268 1 ! 3.1.057 By: Nick Bush On: 21-Feb-1985 ; 0269 1 ! Determine VMS version on startup and remember for later ; 0270 1 ! use. Use it in KERSYS to determine whether we will need ; 0271 1 ! to force an end-of-file on the mailbox when the subprocess ; 0272 1 ! on the other end goes away. ; 0273 1 ! ; 0274 1 ! 3.1.060 By: Nick Bush On: 16-March-1985 ; 0275 1 ! Increase size of terminal name buffers to account for large ; 0276 1 ! unit numbers (most likely seen with VTA's). ; 0277 1 ! ; 0278 1 ! 3.1.061 By: Nick Bush On: 16-March-1985 ; 0279 1 ! Only attempt to set parity back when closing terminal. ; 0280 1 ! ; 0281 1 ! 3.1.062 By: Nick Bush On: 16-March-1985 ; 0282 1 ! Previous edit broke remote commands - must post QIO's ; 0283 1 ! when opening terminals for these. ; 0284 1 ! ; 0285 1 ! 3.1.063 By: Nick Bush On: 16-March-1985 ; 0286 1 ! Fix status command to output right headers over data. ; 0287 1 ! ; 0288 1 ! 3.1.064 By: Nick Bush On: 30-March-1985 ; 0289 1 ! Fix LIB$SPAWN call to set SYS$INPUT for the subprocess ; 0290 1 ! to be NLA0: so that it doesn't try to input from the ; 0291 1 ! terminal. ; 0292 1 ! ; 0293 1 ! 3.1.065 By: Nick Bush On: 10-April-1985 ; 0294 1 ! Split IBM handshaking from parity and local echo. Allow ; 0295 1 ! link time setting of IBM_MODE defaults by defining symbols: ; 0296 1 ! ; 0297 1 ! IBM_MODE_CHARACTER = character value of handshake character ; 0298 1 ! IBM_MODE_ECHO = 1 for local echo, 2 for no local echo ; 0299 1 ! IBM_MODE_PARITY = (0 = none), (1 = mark), (2 = even), ; 0300 1 ! (3 = odd), (4 = space). ; 0301 1 ! ; 0302 1 ! If not specified, Kermit will continue to use DC1, local echo ; 0303 1 ! and odd parity for IBM_MODE. ; 0304 1 ! ; 0305 1 ! 3.1.066 By: Nick Bush On: 22-April-1985 ; 0306 1 ! Don't use NLA0: as SYS$INPUT when spawning things under VMS 3. ; 0307 1 ! ; 0308 1 ! ; 0309 1 ! Start version 3.2 on 8-May-1985 ; 0310 1 ! ; 0311 1 ! 3.2.067 By: Robert McQueen On: 8-May-1985 ; 0312 1 ! Use $GETJPIW and $GETDVIW instead of $GETJPI and $GETDVI. ; 0313 1 ! Module: KERTRM, KERFIL ; 0314 1 ! ; 0315 1 ! 3.2.070 By: Robert McQueen On: 17-Dec-1985 ; 0316 1 ! Fix a problem with CRC calculations when 8 bit data and not ; 0317 1 ! 8 bit quoting. ; 0318 1 ! ; 0319 1 ! 3.2.071 By: Robert McQueen On: 11-March-1986 ; 0320 1 ! Fix a problem were KERMSG didn't allow for a line termination ; 0321 1 ! character in the buffer. ; 0322 1 ! ; 0323 1 ! 3.2.072 By: Robert McQueen On: 11-March-1986 ; 0324 1 ! Allow 0 as a valid value for SET SEND PADDING command. ; 0325 1 ! ; 0326 1 ! 3.2.073 By: Robert McQueen On: 11-March-1986 ; 0327 1 ! Fix a problem restoring the terminal characteristics under ; 0328 1 ! VMS 4.x ; 0329 1 ! ; 0330 1 ! 3.2.074 By: Robert McQueen On: 11-March-1986 ; 0331 1 ! Put MAX_MSG back the way it was and fix the problem correctly ; 0332 1 ! in KERMSG. ; 0333 1 ! ; 0334 1 ! 3.2.075 By: Robert McQueen On: 8-April-1986 ; 0335 1 ! Change how the FINISH command works. Cause it to go back to ; 0336 1 ! the Kermit-32 prompt, not exit. ; 0337 1 ! ; 0338 1 ! 3.2.076 By: Robert McQueen On: 17-April-1986 ; 0339 1 ! Set PASSTHRU in addition to everything else we change in VMSTRM. ; 0340 1 ! ; 0341 1 ! 3.2.077 By: Robert McQueen On: 8-May-1986 ; 0342 1 ! FIX FORTRAN CC!! (Once and for all I hope) ; 0343 1 ! ; 0344 1 ! 3.2.100 By: Gregory P. Welsh On: 1-June-1986 ; 0345 1 ! Add TRANSMIT command along with set SET/SHOW TRANSMIT ECHO ; 0346 1 ! and DELAY commands. ; 0347 1 ! ; 0348 1 ! Start of version 3.3 ; 0349 1 ! ; 0350 1 ! 3.3.101 By: Robert C. McQueen On: 2-July-1986 ; 0351 1 ! Change $TRNLOG system service calls to LIB$SYS_TRNLOG library ; 0352 1 ! routine. Handle no translation properly in VMSTRM.BLI. ; 0353 1 ! ; 0354 1 ! 3.3.102 By: Robert McQueen On: 5-July-1986 ; 0355 1 ! Add changes/fixes suggested by Art Guion and David Deley for ; 0356 1 ! VMSTRM.BLI ; 0357 1 ! - Turn off FALLBACK terminal characteristics for eightbit ; 0358 1 ! operations. ; 0359 1 ! - Decrease IBM timeouts when waiting for a handshake. ; 0360 1 ! ; 0361 1 ! 3.3.103 By: Robert McQueen On: 5-July-1986 ; 0362 1 ! Add changes/fixes suggested by David Deley for VMSMIT.BLI ; 0363 1 ! - Problem with an infinite loop getting a command. ; 0364 1 ! ; 0365 1 ! 3.3.104 By: Robert McQueen On: 5-July-1986 ; 0366 1 ! Add changes/fixes suggested by Art Guion and David Deley for ; 0367 1 ! KERMSG.BLI. ; 0368 1 ! - Always attempt a handshake in IBM mode. Failing to handshake ; 0369 1 ! may cause 3704/5 style controller to hang a VM system. ; 0370 1 ! - Don't lose the last character in a buffer. BFR_FILL logic ; 0371 1 ! forgets to send the last cahracters of a file when it doesn't ; 0372 1 ! fit into the current packet. ; 0373 1 ! ; 0374 1 ! 3.3.105 By: Robert McQueen On: 8-July-1986 ; 0375 1 ! Attempt to fix the truncation errors that we now get from ; 0376 1 ! LINK with BLISS-32 v4.2. Also do code clean up in VMSTRM and ; 0377 1 ! VMSFIL. ; 0378 1 ! ; 0379 1 ! 3.3.106 By: Robert McQueen On: 8-July-1986 ; 0380 1 ! Fix problem of closing a fixed file and losing data. ; 0381 1 ! ; 0382 1 ! 3.3.107 By: Antonino N. Mione On: 8-Sep-1986 ; 0383 1 ! Do not abort on ERROR packet while in SERVER mode. Instead, ; 0384 1 ! return to SERVER IDLE mode. ; 0385 1 ! ; 0386 1 ! 3.3.110 By: Antonino N. Mione On: 8-Sep-1986 ; 0387 1 ! Make KERMIT-32 close the terminal (so the terminal ; 0388 1 ! parameters are appropriately reset) upon reciept of ; 0389 1 ! a GENERIC LOGOUT packet. ; 0390 1 ! ; 0391 1 ! 3.3.111 By: Robert McQueen On: 2-Oct-1986 ; 0392 1 ! Make Kermit-32 not eat the parity from a CR if a LF doesn't ; 0393 1 ! follow it when writing an ASCII file. ; 0394 1 ! ; 0395 1 ! 3.3.112 JHW0001 Jonathan H. Welch, 28-Apr-1988 12:11 ; 0396 1 ! Fix the message generated in NEXT_FILE so that the ; 0397 1 ! filenames displayed (i.e. Sending: foo.bar;1 as foo.bar) ; 0398 1 ! are always terminated by a null (ASCIZ). ; 0399 1 ! ; 0400 1 ! 3.3.113 JHW0002 Jonathan H. Welch, 5-May-1988 11:48 ; 0401 1 ! Modified SY_TIME to use $GETTIM as opposed to the LIB$timer ; 0402 1 ! routines (which broke when their method of calculating ; 0403 1 ! time differences changed in V4.4?). ; 0404 1 ! ; 0405 1 ! Removed the call to LIB$INIT_TIMER in SY_INIT. ; 0406 1 ! ; 0407 1 ! 3.3.114 JHW003 Jonathan H. Welch, 6-May-1988 9:41 ; 0408 1 ! Modified MAIN_ROUTINE to return the status code from ; 0409 1 ! COMND when exiting. ; 0410 1 ! ; 0411 1 ! Note: The error message codes returned are internal ; 0412 1 ! Kermit-32 error codes. ; 0413 1 ! ; 0414 1 ! 3.3.115 JHW004 Jonathan H. Welch, 9-May-1988 ; 0415 1 ! Added the ability to send a break character to ; 0416 1 ! the outgoing terminal session using the sequence ; 0417 1 ! esc-chr B. The break will be sent after the next ; 0418 1 ! character arrives. This is because there must be ; 0419 1 ! no outstanding I/O on a channel in order to modify ; 0420 1 ! terminal characteristics (necessary to send a break). ; 0421 1 ! ; 0422 1 ! 3.3.116 JHW005 Jonathan H. Welch, 12-May-1988 8:35 ; 0423 1 ! Modified COMND_HELP to look for the kermit help ; 0424 1 ! file called KERMIT_HELP or pointed to by the logical ; 0425 1 ! name KERMIT_HELP. Thus if a user wants to have the ; 0426 1 ! kermit help file in a directory other than SYS$HELP ; 0427 1 ! it is not necessary to define the logical name KERMIT ; 0428 1 ! (which causes problems: i.e. RUN KERMIT will fail). ; 0429 1 ! ; 0430 1 ! 3.3.117 JHW006 Jonathan H. Welch, 12-May-1988 ; 0431 1 ! Calls to LIB$SIGNAL with multiple arguments were ; 0432 1 ! not coded correctly. For calls with multiple arguments ; 0433 1 ! an argument count was added. ; 0434 1 ! Minor changes to KERM_HANDLER to make use of the changed ; 0435 1 ! argument passing method. ; 0436 1 ! ; 0437 1 ! 3.3.118 By: Burt Johnson On: 1-Feb-1990 ; 0438 1 ! Added support for Extended Length packets; ; 0439 1 ! ; 0440 1 ! 3.3.119 JHW007 Jonathan H. Welch, 4-Apr-1990 7:47 ; 0441 1 ! Modified Final_Status to have an initial value of SS$_NORMAL. ; 0442 1 ! Previously, if all kermit operations were successful a ; 0443 1 ! return status of 0 was generated. ; 0444 1 ! ; 0445 1 ! Added a compile-time test for BLISS32 systems in the three ; 0446 1 ! generic bliss files (GLB, MSG, TT) which didn't have this ; 0447 1 ! declaration so that references to data use longword offsets. ; 0448 1 ! Burt Johnson's solution (PSECT PLIT = $CODE$) was generating ; 0449 1 ! many link-time errors. ; 0450 1 ! ; 0451 1 ! 3.3.120 JHW008 Jonathan H. Welch, 5-Apr-1990 10:57 ; 0452 1 ! Modified the call to NORMALIZE_FILE in routine REC_FILE ; 0453 1 ! to adjust file name and type lengths downwards to 39 ; 0454 1 ! characters each as opposed to the pre-VMS 4 format of ; 0455 1 ! 9 for the name and 3 for the type. ; 0456 1 ! ; 0457 1 ! 3.3.121 JHW009 Jonathan H. Welch, 12-Apr-1990 12:20 ; 0458 1 ! Added and modified routines in vmstrm.bli to notify the ; 0459 1 ! user if SS$_HANGUP occurs on the outgoing terminal line. ; 0460 1 ! If the outgoing line is serviced by a decserver (LTA type ; 0461 1 ! terminal) the user must issue a CONNECT LTAnnn command ; 0462 1 ! to reestablish a LAT link to the decserver. ; 0463 1 ! ; 0464 1 ! 3.3.122 JHW010 Jonathan H. Welch, 23-Apr-1990 09:42 ; 0465 1 ! Added SET FILE BLOCKSIZE nnn (where nnn is the record size ; 0466 1 ! in bytes) command for incoming BINARY and FIXED file transfers. ; 0467 1 ! If no blocksize has been specified the old behavior (510 byte ; 0468 1 ! records plus 2 bytes (for CR/LF) for BINARY files and 512 ; 0469 1 ! byte records for FIXED files will be used. ; 0470 1 ! Also modified SHOW FILE to display record size when appropriate. ; 0471 1 ! ; 0472 1 ! 3.3.123 JHW011 Jonathan H. Welch, 17-May-1990 9:06 ; 0473 1 ! Modified a miscoded call to send_packet in routine ; 0474 1 ! send_gencmd to correctly specify the length of the ; 0475 1 ! response packet to transmit. This miscoding only ; 0476 1 ! affected long packet support, in particular, when ; 0477 1 ! GETting files standard length packets were being used ; 0478 1 ! when long packet support was available in both kermit ; 0479 1 ! programs. ; 0480 1 ! ; 0481 1 ! 3.3.124 JHW012 Jonathan H. Welch, 18-May-1990 7:56 ; 0482 1 ! Modified asn_wth_mbx to obtain the master PID in the ; 0483 1 ! process tree before asking for JPI$_TERMINAL. $GETJPI ; 0484 1 ! was returning a null string for this item when called ; 0485 1 ! from a subprocess resulting in a "No default terminal ; 0486 1 ! line for transfers" message. ; 0487 1 ! ; 0488 1 ! 3.3.125 JHW013 Jonathan H. Welch, 18-May-1990 13:00 ; 0489 1 ! Extended the buffer size for terminal names from 20 ; 0490 1 ! characters to 255 to make sure any terminal name can ; 0491 1 ! be accomodated. ; 0492 1 ! ; 0493 1 ! 3.3.126 JHW014 Jonathan H. Welch, 5-Jun-1990 12:38 ; 0494 1 ! Modified asn_wth_mbx to add a ':' to the end of the ; 0495 1 ! terminal name is one is not returned by VMS. ; 0496 1 ! This will keep LIB$GETDVI from failing with an ; 0497 1 ! "invalid device name" which results in the kermit ; 0498 1 ! error "no default terminal line for transfers." ; 0499 1 ! ; 0500 1 ! 3.3.127 JHW015 Jonathan H. Welch, 16-Jul-1990 15:30 ; 0501 1 ! Fixed the logic in GET_ASCII which was causing an infinite ; 0502 1 ! loop for files with print file carriage control. ; 0503 1 ! ; 0504 1 ! 3.3.128 JHW016 Jonathan H. Welch, 17-Oct-1990 9:42 ; 0505 1 ! Modified asn_wth_mbx to work properly in non-interactive mode. ; 0506 1 !-- ; 0507 1 ; 0508 1 %SBTTL 'Routine definitions -- Forwards' ; 0509 1 !<BLF/NOFORMAT> ; 0510 1 ! ; 0511 1 ! Forward definitions ; 0512 1 ! ; 0513 1 ; 0514 1 ! Command processing routines ; 0515 1 ; 0516 1 FORWARD ROUTINE ; 0517 1 COMND, ! Process a command ; 0518 1 COMND_ERROR : NOVALUE, ! Give error for command ; 0519 1 COMND_FILE, ! Process command file ; 0520 1 DO_COMND, ! Parse and dispatch one command ; 0521 1 COMND_HELP : NOVALUE, ! Process the HELP command ; 0522 1 COMND_SHOW : NOVALUE, ! Process the SHOW command ; 0523 1 COMND_STATUS : NOVALUE, ! Process the STATUS command ; 0524 1 COMND_REMOTE : NOVALUE, ! Process the REMOTE command ; 0525 1 COMND_LOCAL : NOVALUE, ! Process the LOCAL commands ; 0526 1 GET_REM_ARGS, ! Get arguments for REMOTE/LOCAL commands ; 0527 1 STORE_TEXT, ! Routine to store a file name ; 0528 1 COPY_TERM_NAME, ! Copy device name (TERM_xxxx) ; 0529 1 COPY_DESC, ! Copy file name (FILE_xxx) ; 0530 1 COPY_ALT_FILE, ! Copy to alternate file name (ALT_FILE_xxx) ; 0531 1 COPY_GEN_1DATA, ! Copy to GEN_1DATA (generic command argument) ; 0532 1 STORE_BLOCKSIZE, ! Store the blocksize value ; 0533 1 STORE_DEBUG, ! Store the debuging flag ; 0534 1 STORE_TR_ECHO, ! Store the transmit echo flag [078] ; 0535 1 STORE_TR_DELAY, ! Store the transmit delay [078] ; 0536 1 STORE_FTP, ! Store the file type ; 0537 1 STORE_FNM, ! Store the file name form ; 0538 1 STORE_ECHO, ! Store the local echo flag ; 0539 1 STORE_PARITY, ! Store the parity type ; 0540 1 STORE_CHK, ! This routine will store the checksum type. ; 0541 1 STORE_ABT, ! This routine will store the aborted file disposition ; 0542 1 STORE_IBM, ! Store IBM flag ; 0543 1 STORE_MSG_FIL, ! Store TY_FIL ; 0544 1 STORE_MSG_PKT, ! Store TY_PKT ; 0545 1 CHECK_PACKET_LEN, ! Validate PACKET length given ; 0546 1 CHECK_NPAD, ! Validate the number of pad characters ; 0547 1 CHECK_PAD_CHAR, ! Validate the padding character being set ; 0548 1 CHECK_EOL, ! Validate EOL character given. ; 0549 1 CHECK_QUOTE, ! Validate quoting character ; 0550 1 CHECK_SOH, ! Validate the start of packet character given ; 0551 1 KEY_ERROR; ! Return correct keyword error value ; 0552 1 ; 0553 1 ! ; 0554 1 ! Error handling routines ; 0555 1 ! ; 0556 1 ; 0557 1 FORWARD ROUTINE ; 0558 1 KERM_HANDLER; ! Condition handler ; 0559 1 %SBTTL 'Include files' ; 0560 1 ; 0561 1 ! ; 0562 1 ! INCLUDE FILES: ; 0563 1 ! ; 0564 1 ; 0565 1 LIBRARY 'SYS$LIBRARY:STARLET'; ; 0566 1 ; 0567 1 LIBRARY 'SYS$LIBRARY:TPAMAC'; ; 0568 1 ; 0569 1 REQUIRE 'KERCOM'; ! Common definitions ; 0778 1 ; 0779 1 REQUIRE 'KERERR'; ! Error message symbol definitions ; 0845 1 ; 0846 1 %SBTTL 'Macro definitions' ; 0847 1 ; 0848 1 ! ; 0849 1 ! MACROS: ; 0850 1 ! ; 0851 1 ; 0852 1 MACRO ; M 0853 1 TPARSE_ARGS = ; M 0854 1 BUILTIN AP; ; M 0855 1 MAP AP : REF BLOCK [,BYTE]; ; 0856 1 %; ; 0857 1 ; 0858 1 ! ; 0859 1 ! Macro to initialize a string descriptor ; 0860 1 ! ; 0861 1 MACRO ; M 0862 1 INIT_STR_DESC (DESC, BUFFER, SIZE) = ; M 0863 1 BEGIN ; M 0864 1 ! MAP ; M 0865 1 ! DESC : BLOCK [8, BYTE]; ; M 0866 1 DESC [DSC$B_CLASS] = DSC$K_CLASS_S; ; M 0867 1 DESC [DSC$B_DTYPE] = DSC$K_DTYPE_T; ; M 0868 1 DESC [DSC$W_LENGTH] = SIZE; ; M 0869 1 DESC [DSC$A_POINTER] = BUFFER; ; M 0870 1 END ; 0871 1 %; ; 0872 1 %SBTTL 'Equated symbols -- Command types' ; 0873 1 ; 0874 1 ! ; 0875 1 ! EQUATED SYMBOLS: ; 0876 1 ! ; 0877 1 ! Command offsets ; 0878 1 ; 0879 1 LITERAL ; 0880 1 CMD_MIN = 1, ! Minimum value ; 0881 1 CMD_CONN = 1, ! Connect command ; 0882 1 CMD_EXIT = 2, ! Exit command ; 0883 1 CMD_HELP = 3, ! Help command ; 0884 1 CMD_RECEIVE = 4, ! Receive command ; 0885 1 CMD_SET = 5, ! Set command ; 0886 1 CMD_SEND = 6, ! Send command ; 0887 1 CMD_SHOW = 7, ! Show command ; 0888 1 CMD_SERVER = 8, ! SERVER command ; 0889 1 CMD_STATUS = 9, ! STATUS command ; 0890 1 CMD_LOGOUT = 10, ! Generic LOGOUT command ; 0891 1 CMD_BYE = 11, ! Generic LOGOUT command and EXIT ; 0892 1 CMD_FINISH = 12, ! Generic EXIT command ; 0893 1 CMD_GET = 13, ! Get command ; 0894 1 CMD_REMOTE = 14, ! Remote command ; 0895 1 CMD_LOCAL = 15, ! Local command ; 0896 1 CMD_PUSH = 16, ! PUSH command (spawn new DCL) ; 0897 1 CMD_NULL = 17, ! Any command which is done ; 0898 1 ! totally by the LIB$TPARSE call ; 0899 1 CMD_TAKE = 18, ! Take command ; 0900 1 CMD_TRANSMIT = 19, ! Transmit command [078] ; 0901 1 CMD_MAX = 19; ! Maximum command value [078] ; 0902 1 ; 0903 1 ! Items to show ; 0904 1 ; 0905 1 LITERAL ; 0906 1 SHOW_ALL = 1, ! Show everything ; 0907 1 SHOW_DEB = 2, ! Show debugging flag ; 0908 1 SHOW_DEL = 3, ! Show delay ; 0909 1 SHOW_ESC = 4, ! Show ESCAPE character ; 0910 1 SHOW_TIM = 5, ! Show random timing ; 0911 1 SHOW_LIN = 6, ! Show the line we are using ; 0912 1 SHOW_ECH = 7, ! Show the echo flag ; 0913 1 SHOW_SEN = 8, ! Show send parameters ; 0914 1 SHOW_REC = 9, ! Show the receive parameters ; 0915 1 SHOW_PAR = 10, ! Show the parity setting ; 0916 1 SHOW_RTY = 11, ! Show retry counters ; 0917 1 SHOW_CHK = 12, ! Show block-check-type ; 0918 1 SHOW_ABT = 13, ! Show aborted file disposition ; 0919 1 SHOW_FIL = 14, ! Show file parameters ; 0920 1 SHOW_PAC = 15, ! Show packet parameters ; 0921 1 SHOW_COM = 16, ! Show communications parameters ; 0922 1 SHOW_VER = 17, ! Show version ; 0923 1 SHOW_TRN = 18; ! Show transmit delay and echo ; 0924 1 %SBTTL 'Equated symbols -- Constants' ; 0925 1 ; 0926 1 ! Constants ; 0927 1 ; 0928 1 LITERAL ; 0929 1 CMD_BFR_LENGTH = 132, ! Command buffer length ; 0930 1 OUT_BFR_LENGTH = 80, ! Output buffer length (SHOW cmd) ; 0931 1 HELP_LENGTH = 132, ! Length of the help buffer ; 0932 1 TEMP_LENGTH = 132; ! Length of the temporary area ; 0933 1 ! ; 0934 1 ! The default prompt ; 0935 1 ! ; 0936 1 BIND ; 0937 1 DEFAULT_PROMPT = %ASCID'Kermit-32>'; ; 0938 1 ; 0939 1 MAP ; 0940 1 DEFAULT_PROMPT : BLOCK [8, BYTE]; ! This is a descriptor ; 0941 1 %SBTTL 'Storage -- Global' ; 0942 1 ; 0943 1 !<BLF/NOFORMAT> ; 0944 1 ! ; 0945 1 ! GLOBAL STORAGE: ; 0946 1 ! ; 0947 1 ; 0948 1 GLOBAL ; 0949 1 TRANSACTION_DESC : BLOCK [8, BYTE], ! Descriptor for transaction log file ; 0950 1 TRANSACTION_OPEN, ! File open flag ; 0951 1 TRANSACTION_FAB : $FAB_DECL, ! Transaction file FAB ; 0952 1 TRANSACTION_RAB : $RAB_DECL, ! Transaction file RAB ; 0953 1 ESCAPE_CHR, ! Escape character for CONNECT ; 0954 1 ALT_FILE_SIZE, ! Number of characters in FILE_NAME ; 0955 1 ALT_FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)]; ! Storage ; 0956 1 %SBTTL 'Storage -- Local' ; 0957 1 ; 0958 1 ! ; 0959 1 ! OWN STORAGE: ; 0960 1 ! ; 0961 1 ; 0962 1 OWN ; 0963 1 ; 0964 1 ! Command scanning information ; 0965 1 ; 0966 1 TPARSE_BLOCK : BLOCK [TPA$K_LENGTH0, BYTE] ; 0967 1 INITIAL (TPA$K_COUNT0, ! Longword count ; 0968 1 TPA$M_ABBREV), ! Allow abbreviations ; 0969 1 BAD_CMD_DESC : BLOCK [8, BYTE], ! Descriptor for bad command field ; 0970 1 COMMAND, ! Type of command we are doing ; 0971 1 SHOW_TYPE, ! Type of show command ; 0972 1 REM_TYPE, ! Type of REMOTE command ; 0973 1 TAKE_DISPLAY, ! Display commands being TAKEn ; 0974 1 ! ; 0975 1 ! Output data area ; 0976 1 ! ; 0977 1 OUTPUT_LINE : VECTOR [OUT_BFR_LENGTH, BYTE, UNSIGNED], ; 0978 1 OUTPUT_DESC : BLOCK [8, BYTE], ; 0979 1 OUTPUT_SIZE : WORD UNSIGNED, ; 0980 1 ; 0981 1 ! Misc constants. ; 0982 1 ; 0983 1 Final_Status : LONG UNSIGNED INITIAL(SS$_NORMAL), ! Status from within condition handler routine. ; 0984 1 TRANSACTION_NAME : VECTOR [CH$ALLOCATION(MAX_FILE_NAME)], ; 0985 1 PROMPT_DESC : BLOCK [8, BYTE], ! Descriptor for prompt ; 0986 1 PROMPT_TEXT : VECTOR [CH$ALLOCATION(TEMP_LENGTH)], ! Storage for prompt ; 0987 1 CRC_TABLE : BLOCK [16, LONG], ! CRC-CCITT table ; 0988 1 TAK_FIL_DESC : BLOCK [8, BYTE], ! Take file descriptor ; 0989 1 TAK_FIL_NAME : BLOCK [CH$ALLOCATION(MAX_FILE_NAME)], ; 0990 1 TEMP_DESC : BLOCK [8, BYTE], ! Temporary descriptor ; 0991 1 TEMP_NAME : VECTOR [CH$ALLOCATION(TEMP_LENGTH)]; ; 0992 1 ; 0993 1 ; 0994 1 !<BLF/FORMAT> ; 0995 1 %SBTTL 'External routines' ; 0996 1 ! ; 0997 1 ! EXTERNAL REFERENCES: ; 0998 1 ! ; 0999 1 ; 1000 1 EXTERNAL ROUTINE ; 1001 1 ! ; 1002 1 ! Library routines ; 1003 1 ! ; 1004 1 LIB$GET_INPUT : ADDRESSING_MODE (GENERAL), ; 1005 1 LIB$PUT_OUTPUT : ADDRESSING_MODE (GENERAL), ; 1006 1 LIB$TPARSE : ADDRESSING_MODE (GENERAL), ; 1007 1 LIB$CRC_TABLE : ADDRESSING_MODE (GENERAL), ; 1008 1 LIB$CRC : ADDRESSING_MODE (GENERAL), ; 1009 1 LIB$SIGNAL : ADDRESSING_MODE (GENERAL) NOVALUE, ; 1010 1 LIB$ESTABLISH : ADDRESSING_MODE (GENERAL), ; 1011 1 LIB$ATTACH : ADDRESSING_MODE (GENERAL), ; 1012 1 LIB$SPAWN : ADDRESSING_MODE (GENERAL), ; 1013 1 ! ; 1014 1 ! KERMSG - KERMIT Message processing routines ; 1015 1 ! ; 1016 1 SEND_SWITCH, ! Send a file ; 1017 1 REC_SWITCH, ! Receive a file ; 1018 1 DO_GENERIC, ! Send generic functions ; 1019 1 SERVER, ! Server mode processing ; 1020 1 SND_ERROR : NOVALUE, ! Send E packet to remote ; 1021 1 MSG_INIT : NOVALUE, ! Initialization routine ; 1022 1 ! ; 1023 1 ! KERFIL - File processing. ; 1024 1 ! ; 1025 1 FILE_INIT : NOVALUE, ! Initialization routine ; 1026 1 ! ; 1027 1 ! KERSYS - System subroutines for KERMSG ; 1028 1 ! ; 1029 1 SY_INIT : NOVALUE, ! Initialization routine ; 1030 1 ! ; 1031 1 ! KERTRM - Terminal processing. ; 1032 1 ! ; 1033 1 TERM_INIT : NOVALUE, ! Initialize the terminal processing ; 1034 1 TERM_OPEN, ! Open the terminal line ; 1035 1 TERM_CLOSE, ! Close the terminal line ; 1036 1 TERM_CONNECT, ! Impliments CONNECT command ; 1037 1 SET_TRANS_TERM, ! Set new transfer terminal ; 1038 1 COMND_TRANSMIT, ! Transmit command code in module KERTRM ; 1039 1 ! ; 1040 1 ! KERTT - Text processing ; 1041 1 ! ; 1042 1 TT_INIT : NOVALUE, ! Initialization routine ; 1043 1 TT_TEXT : NOVALUE, ! Output a text string ; 1044 1 TT_NUMBER : NOVALUE, ! Output a number ; 1045 1 TT_CHAR : NOVALUE, ! Output a single character ; 1046 1 TT_OUTPUT : NOVALUE, ! Routine to dump the current ; 1047 1 ! text line. ; 1048 1 TT_CRLF : NOVALUE; ! Output the line ; 1049 1 ; 1050 1 %SBTTL 'External storage' ; 1051 1 ! ; 1052 1 ! EXTERNAL Storage: ; 1053 1 ! ; 1054 1 ; 1055 1 EXTERNAL ; 1056 1 ! ; 1057 1 ! KERMSG storage ; 1058 1 ! ; 1059 1 ! Receive parameters ; 1060 1 RCV_PKT_SIZE, ! Receive packet size ; 1061 1 RCV_NPAD, ! Padding length ; 1062 1 RCV_PADCHAR, ! Padding character ; 1063 1 RCV_TIMEOUT, ! Time out ; 1064 1 RCV_EOL, ! EOL character ; 1065 1 RCV_QUOTE_CHR, ! Quote character ; 1066 1 RCV_8QUOTE_CHR, ! 8-bit quoting character ; 1067 1 RCV_SOH, ! Start of packet header ; 1068 1 ! ; 1069 1 ! Send parameters ; 1070 1 ! ; 1071 1 SND_PKT_SIZE, ! Send packet size ; 1072 1 SND_NPAD, ! Padding length ; 1073 1 SND_PADCHAR, ! Padding character ; 1074 1 SND_TIMEOUT, ! Time out ; 1075 1 SND_EOL, ! EOL character ; 1076 1 SND_QUOTE_CHR, ! Quote character ; 1077 1 SND_SOH, ! Packet start of header ; 1078 1 ! ; 1079 1 ! Server parameters ; 1080 1 ! ; 1081 1 SRV_TIMEOUT, ! Time between idle naks in server ; 1082 1 ! ; 1083 1 ! Misc. packet parameters ; 1084 1 ! ; 1085 1 SET_REPT_CHR, ! Desired repeat character ; 1086 1 ! ; 1087 1 ! Statistics ; 1088 1 ! ; 1089 1 SND_TOTAL_CHARS, ! Total characters sent ; 1090 1 RCV_TOTAL_CHARS, ! Total characters received ; 1091 1 SND_DATA_CHARS, ! Total number of data characters sent ; 1092 1 RCV_DATA_CHARS, ! Total number of data characters received ; 1093 1 SMSG_TOTAL_CHARS, ! Total chars sent this file xfer ; 1094 1 RMSG_TOTAL_CHARS, ! Total chars rcvd this file xfer ; 1095 1 SMSG_DATA_CHARS, ! Total data chars this file xfer ; 1096 1 RMSG_DATA_CHARS, ! Total data chars this file xfer ; 1097 1 RCV_NAKS, ! Total number of NAKs received ; 1098 1 SND_NAKS, ! Total number of NAKs sent ; 1099 1 RMSG_NAKS, ! Number of NAKs received ; 1100 1 SMSG_NAKS, ! Number of NAKs sent ; 1101 1 RCV_COUNT, ! Total number of packets received ; 1102 1 SND_COUNT, ! Total number of packets sent ; 1103 1 RMSG_COUNT, ! Number of packets received ; 1104 1 SMSG_COUNT, ! Number of packets sent ; 1105 1 XFR_TIME, ! Amount of time the last transfer took ; 1106 1 TOTAL_TIME, ! Total time the transfers have taken ; 1107 1 LAST_ERROR : VECTOR [CH$ALLOCATION (MAX_MSG + 1)], ! Last error message ; 1108 1 TY_PKT, ! Flag that packet numbers should be typed ; 1109 1 TY_FIL, ! Flag that file names should be typed ; 1110 1 GEN_1DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Data for generic command ; 1111 1 GEN_1SIZE, ! Size of data in GEN_1DATA ; 1112 1 GEN_2DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Second argument for generic command ; 1113 1 GEN_2SIZE, ! Size of data in GEN_2DATA ; 1114 1 GEN_3DATA : VECTOR [CH$ALLOCATION (MAX_MSG)], ! Third arg for generic command ; 1115 1 GEN_3SIZE, ! Size of data in GEN_3DATA ; 1116 1 ! ; 1117 1 ! Misc constants. ; 1118 1 ! ; 1119 1 FILE_SIZE, ! Number of characters in FILE_NAME ; 1120 1 FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)], ; 1121 1 SI_RETRIES, ! Initial connection max retries ; 1122 1 PKT_RETRIES, ! Packet max retries ; 1123 1 DELAY, ! Amount of time to delay ; 1124 1 DEBUG_FLAG, ! Debugging mode on/off ; 1125 1 CHKTYPE, ! Type of block-check-type wanted ; 1126 1 ABT_FLAG, ! Aborted file disposition ; 1127 1 ! IBM_FLAG, ! IBM mode flag ; 1128 1 IBM_CHAR, ! Handshaking character ; 1129 1 WARN_FLAG, ! File warning flag ; 1130 1 FIL_NORMAL_FORM, ! File name type to send ; 1131 1 PARITY_TYPE, ! Type of parity we are using ; 1132 1 ECHO_FLAG, ! Local echo flag ; 1133 1 CONNECT_FLAG; ! True if SYS$OUTPUT and line ; 1134 1 ; 1135 1 ! xfering over are the same. ; 1136 1 ! ; 1137 1 ! KERFIL storage ; 1138 1 ! ; 1139 1 ; 1140 1 EXTERNAL ; 1141 1 ; 1142 1 file_blocksize, ! Blocksize for FIXED files ; 1143 1 file_blocksize_set, ! Flag indicating a blocksize has been specified by the user. ; 1144 1 FILE_TYPE, ! Type of file being processed ; 1145 1 FILE_DESC : BLOCK [8, BYTE]; ! Descriptor for the file name ; 1146 1 ; 1147 1 ! ; 1148 1 ! KERTRM storage ; 1149 1 ! ; 1150 1 ; 1151 1 EXTERNAL ; 1152 1 SESSION_DESC : BLOCK [8, BYTE], ! Session log file name ; 1153 1 DEBUG_DESC : BLOCK [8, BYTE], ! Debugging log file name ; 1154 1 TERM_DESC : BLOCK [8, BYTE], ! Terminal name descriptor ; 1155 1 TRANS_ECHO_FLAG, ! Transmit echo on/off ; 1156 1 TRANS_DELAY, ! Transmit delay ; 1157 1 TERM_FLAG; ! Terminal open flag ; 1158 1 ; 1159 1 %SBTTL 'Command parsing tables' ; 1160 1 !<BLF/NOFORMAT> ; 1161 1 !++ ; 1162 1 ! ; 1163 1 !The following are the command state tables for the KERMIT-32 ; 1164 1 !command processing. ; 1165 1 ! ; 1166 1 !-- ; 1167 1 ; 1168 1 $INIT_STATE (KERMIT_STATE, KERMIT_KEY); ; 1169 1 ; P 1170 1 $STATE (START, ; P 1171 1 ('BYE', DONE_STATE, , CMD_BYE, COMMAND), ; P 1172 1 ('CONNECT', CONN_STATE, , CMD_CONN, COMMAND), ; P 1173 1 ('EXIT', DONE_STATE, , CMD_EXIT, COMMAND), ; P 1174 1 ('FINISH', DONE_STATE, , CMD_FINISH, COMMAND), ; P 1175 1 ('GET', GET_STATE, , CMD_GET, COMMAND), ; P 1176 1 ('HELP', HELP_STATE, , CMD_HELP, COMMAND), ; P 1177 1 ('LOCAL', REM_STATE, , CMD_LOCAL, COMMAND), ; P 1178 1 ('LOG', LOG_STATE, , CMD_NULL, COMMAND), ; P 1179 1 ('LOGOUT', DONE_STATE, , CMD_LOGOUT, COMMAND), ; P 1180 1 ('PUSH', DONE_STATE, , CMD_PUSH, COMMAND), ; P 1181 1 ('QUIT', DONE_STATE, , CMD_EXIT, COMMAND), ; P 1182 1 ('RECEIVE', REC_STATE, , CMD_RECEIVE, COMMAND), ; P 1183 1 ('REMOTE', REM_STATE, , CMD_REMOTE, COMMAND), ; P 1184 1 ('SET', SET_STATE, , CMD_SET, COMMAND), ; P 1185 1 ('SEND', SEND_STATE, , CMD_SEND, COMMAND), ; P 1186 1 ('SERVER', DONE_STATE, , CMD_SERVER, COMMAND), ; P 1187 1 ('SHOW', SHOW_STATE, , CMD_SHOW, COMMAND), ; P 1188 1 ('STATUS', DONE_STATE, , CMD_STATUS, COMMAND), ; P 1189 1 ('TAKE', TAKE_STATE, , CMD_TAKE, COMMAND), ; P 1190 1 ('@', TAKE_STATE, , CMD_TAKE, COMMAND), ; P 1191 1 ('TRANSMIT', TRANSMIT_STATE, , CMD_TRANSMIT, COMMAND), ! ; P 1192 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1193 1 ) ; 1194 1 ; 1195 1 !++ ; 1196 1 ! CONNECT command. Format is: ; 1197 1 ! ; 1198 1 ! Kermit-32>CONNECT device ; 1199 1 ! ; 1200 1 ! Where: ; 1201 1 ! Device - Terminal line to connect to ; 1202 1 ! ; 1203 1 !-- ; 1204 1 ; P 1205 1 $STATE (CONN_STATE, ; P 1206 1 (TPA$_EOS, DONE_STATE), ; P 1207 1 (TPA$_LAMBDA, SET_LIN_STATE) ; 1208 1 ) ; 1209 1 ; 1210 1 !++ ; 1211 1 ! EXIT command. Format is: ; 1212 1 ! ; 1213 1 ! Kermit-32>EXIT ; 1214 1 ! ; 1215 1 ! Just exit back to VMS. ; 1216 1 ! ; 1217 1 !-- ; 1218 1 ; 1219 1 !++ ; 1220 1 ! HELP command. Format is: ; 1221 1 ! ; 1222 1 ! Kermit-32>HELP ; 1223 1 ! ; 1224 1 ! Do HELP processing for KERMIT-32. ; 1225 1 ! ; 1226 1 !-- ; 1227 1 ; P 1228 1 $STATE (HELP_STATE, ; P 1229 1 (TPA$_ANY, HELP_STATE, STORE_TEXT), ; P 1230 1 (TPA$_LAMBDA, DONE_STATE) ; 1231 1 ) ; 1232 1 ; 1233 1 %SBTTL 'QUIT command table' ; 1234 1 ; 1235 1 !++ ; 1236 1 ! QUIT command. Format is: ; 1237 1 ! ; 1238 1 ! Kermit-32>QUIT ; 1239 1 ! ; 1240 1 ! This command will just exit back to VMS. ; 1241 1 ! ; 1242 1 !-- ; 1243 1 %SBTTL 'GET command table' ; 1244 1 ; 1245 1 !++ ; 1246 1 ! GET command. Format is: ; 1247 1 ! ; 1248 1 ! Kermit-32>GET file-specification ; 1249 1 ! ; 1250 1 ! This command will cause KERMIT to get a file from the micro. ; 1251 1 ! It will assume that it is to used what ever line it currently is ; 1252 1 ! associated with (CONNECT or SET LINE). ; 1253 1 ! ; 1254 1 !-- ; 1255 1 ; P 1256 1 $STATE (GET_STATE, ; P 1257 1 (TPA$_ANY, GET_STATE, STORE_TEXT), ; P 1258 1 (TPA$_LAMBDA, DONE_STATE, COPY_DESC, , ,FILE_DESC) ; 1259 1 ) ; 1260 1 %SBTTL 'RECEIVE command table' ; 1261 1 ; 1262 1 !++ ; 1263 1 ! RECEIVE command. Format is: ; 1264 1 ! ; 1265 1 ! Kermit-32>RECEIVE file-specification ; 1266 1 ! ; 1267 1 ! This command will cause KERMIT to receive a file from the micro. ; 1268 1 ! It will assume that it is to used what ever line it currently is ; 1269 1 ! associated with (CONNECT or SET LINE). ; 1270 1 ! ; 1271 1 !-- ; 1272 1 ; P 1273 1 $STATE (REC_STATE, ; P 1274 1 (TPA$_ANY, REC1_STATE, STORE_TEXT), ; P 1275 1 (TPA$_LAMBDA, DONE_STATE) ; 1276 1 ) ; 1277 1 ; 1278 1 ; P 1279 1 $STATE (REC1_STATE, ; P 1280 1 (TPA$_ANY, REC1_STATE, STORE_TEXT), ; P 1281 1 (TPA$_LAMBDA, DONE_STATE, COPY_ALT_FILE) ; 1282 1 ) ; 1283 1 %SBTTL 'REMOTE command tables' ; 1284 1 ; 1285 1 !++ ; 1286 1 ! REMOTE command. This command will allow the local Kermit user to ; 1287 1 ! request the server Kermit to perform some action. ; 1288 1 ! ; 1289 1 ! Kermit-32>REMOTE keyword arguments ; 1290 1 ! ; 1291 1 ! Where: ; 1292 1 ! ; 1293 1 ! Keyword is one of: ; 1294 1 ! DELETE ; 1295 1 ! DIRECTORY ; 1296 1 ! DISK_USAGE ; 1297 1 ! HELP ; 1298 1 ! SPACE ; 1299 1 ! TYPE ; 1300 1 !-- ; P 1301 1 $STATE (REM_STATE, ; P 1302 1 ('COPY', REM2_STATE, ,GC_COPY, REM_TYPE), ; P 1303 1 ('CWD', REM1_STATE, ,GC_CONNECT, REM_TYPE), ; P 1304 1 ('DELETE', REM2_STATE, ,GC_DELETE, REM_TYPE), ; P 1305 1 ('DIRECTORY', REM1_STATE, ,GC_DIRECTORY, REM_TYPE), ; P 1306 1 ('DISK_USAGE', REM1_STATE, ,GC_DISK_USAGE, REM_TYPE), ; P 1307 1 ('EXIT', DONE_STATE, ,GC_EXIT, REM_TYPE), ; P 1308 1 ('HELP', REM1_STATE, ,GC_HELP, REM_TYPE), ; P 1309 1 ('HOST', REM2_STATE, ,GC_COMMAND, REM_TYPE), ; P 1310 1 ('LOGIN', REM2_STATE, ,GC_LGN, REM_TYPE), ; P 1311 1 ('LOGOUT', DONE_STATE, ,GC_LOGOUT, REM_TYPE), ; P 1312 1 ('RENAME', REM2_STATE, ,GC_RENAME, REM_TYPE), ; P 1313 1 ('SEND_MESSAGE',REM2_STATE, ,GC_SEND_MSG, REM_TYPE), ; P 1314 1 ('SPACE', REM1_STATE, ,GC_DISK_USAGE, REM_TYPE), ; P 1315 1 ('STATUS', DONE_STATE, ,GC_STATUS, REM_TYPE), ; P 1316 1 ('TYPE', REM2_STATE, ,GC_TYPE, REM_TYPE), ; P 1317 1 ('WHO', REM1_STATE, ,GC_WHO, REM_TYPE), ; P 1318 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1319 1 ) ; 1320 1 ; 1321 1 ! State to allow for either no arguments or a text string ; 1322 1 ; P 1323 1 $STATE (REM1_STATE, ; P 1324 1 (TPA$_ANY, REM2_STATE, STORE_TEXT), ; P 1325 1 (TPA$_LAMBDA, DONE_STATE) ; 1326 1 ) ; 1327 1 ; 1328 1 ! State to require a text string argument ; 1329 1 ; P 1330 1 $STATE (REM2_STATE, ; P 1331 1 (TPA$_ANY, REM2_STATE, STORE_TEXT), ; P 1332 1 (TPA$_LAMBDA, DONE_STATE, COPY_GEN_1DATA) ; 1333 1 ) ; 1334 1 %SBTTL 'SET command tables' ; 1335 1 ; 1336 1 !++ ; 1337 1 ! SET command. Format is: ; 1338 1 ! ; 1339 1 ! Kermit-32>SET parameter ; 1340 1 ! ; 1341 1 ! Where: ; 1342 1 ! Parameter - One of many keywords ; 1343 1 ! ; 1344 1 !-- ; 1345 1 ; P 1346 1 $STATE (SET_STATE, ; P 1347 1 ('BLOCK_CHECK_TYPE', SET_CHK_STATE), ; P 1348 1 ('DEBUGGING', SET_DEB_STATE), ; P 1349 1 ('DELAY', SET_DEL_STATE), ; P 1350 1 ('ESCAPE', SET_ESC_STATE), ; P 1351 1 ('FILE', SET_FIL_STATE), ; P 1352 1 ('HANDSHAKE', SET_HAN_STATE), ; P 1353 1 ('IBM_MODE', SET_IBM_STATE), ; P 1354 1 ('INCOMPLETE_FILE_DISPOSITION', SET_ABT_STATE), ; P 1355 1 ('LINE', SET_LIN_STATE), ; P 1356 1 ('LOCAL_ECHO', SET_ECH_STATE), ; P 1357 1 ('MESSAGE', SET_MSG_STATE), ; P 1358 1 ('PARITY', SET_PAR_STATE), ; P 1359 1 ('PROMPT', SET_PMT_STATE), ; P 1360 1 ('RECEIVE', SET_REC_STATE), ; P 1361 1 ('REPEAT_QUOTE',SET_RPT_STATE), ; P 1362 1 ('RETRY', SET_RTY_STATE), ; P 1363 1 ('SEND', SET_SND_STATE), ; P 1364 1 ('SERVER_TIMER',SET_SRV_STATE), ; P 1365 1 ('TRANSMIT', SET_TRN_STATE), ! ; P 1366 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1367 1 ) ; 1368 1 ; 1369 1 !++ ; 1370 1 ! ; 1371 1 ! SET INCOMPLETE_FILE [disposition] command. The possible arguments are ; 1372 1 ! KEEP or DISCARD. ; 1373 1 ! ; 1374 1 !-- ; 1375 1 ; P 1376 1 $STATE (SET_ABT_STATE, ; P 1377 1 ('DISCARD', DONE_STATE, STORE_ABT,, ,TRUE), ; P 1378 1 ('KEEP', DONE_STATE, STORE_ABT,, ,FALSE), ; P 1379 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1380 1 ) ; 1381 1 ; 1382 1 !++ ; 1383 1 ! ; 1384 1 ! SET BLOCK_CHECK_TYPE [type] command. The format is: ; 1385 1 ! ; 1386 1 ! Kermit-32>SET BLOCK_CHECK_TYPE [1_CHARACTER_CHECKSUM | ....] ; 1387 1 ! ; 1388 1 !-- ; 1389 1 ; P 1390 1 $STATE (SET_CHK_STATE, ; P 1391 1 ('1_CHARACTER_CHECKSUM', DONE_STATE, STORE_CHK,, ,CHK_1CHAR), ; P 1392 1 ('2_CHARACTER_CHECKSUM', DONE_STATE, STORE_CHK,, ,CHK_2CHAR), ; P 1393 1 ('3_CHARACTER_CRC_CCITT', DONE_STATE, STORE_CHK,, ,CHK_CRC), ; P 1394 1 ('ONE_CHARACTER_CHECKSUM', DONE_STATE, STORE_CHK,, ,CHK_1CHAR), ; P 1395 1 ('THREE_CHARACTER_CRC_CCITT', DONE_STATE, STORE_CHK,, ,CHK_CRC), ; P 1396 1 ('TWO_CHARACTER_CHECKSUM', DONE_STATE, STORE_CHK,, ,CHK_2CHAR), ; P 1397 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1398 1 ) ; 1399 1 ; 1400 1 !++ ; 1401 1 ! ; 1402 1 ! SET DEBUGGING command. The format is: ; 1403 1 ! ; 1404 1 ! Kermit-32>SET DEBUGGING (on/off) ; 1405 1 ! ; 1406 1 ! Where: ; 1407 1 ! on/off is either the ON or OFF keyword. ; 1408 1 ! ; 1409 1 !-- ; 1410 1 ; P 1411 1 $STATE (SET_DEB_STATE, ; P 1412 1 ('OFF', DONE_STATE, STORE_DEBUG, , ,FALSE), ; P 1413 1 ('ON', DONE_STATE, STORE_DEBUG, , ,TRUE), ; P 1414 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1415 1 ) ; 1416 1 ; 1417 1 !++ ; 1418 1 ! ; 1419 1 ! SET IBM_MODE command. The format is: ; 1420 1 ! ; 1421 1 ! Kermit-32>SET IBM_MODE (on/off) ; 1422 1 ! ; 1423 1 ! Where: ; 1424 1 ! on/off is either the ON or OFF keyword. ; 1425 1 ! ; 1426 1 !-- ; 1427 1 ; P 1428 1 $STATE (SET_IBM_STATE, ; P 1429 1 ('OFF', DONE_STATE, STORE_IBM, , ,FALSE), ; P 1430 1 ('ON', DONE_STATE, STORE_IBM, , ,TRUE), ; P 1431 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1432 1 ) ; 1433 1 !++ ; 1434 1 ! ; 1435 1 ! SET HANDSHAKE command. The format is: ; 1436 1 ! ; 1437 1 ! Kermit-32>SET HANDSHAKE <octal> ; 1438 1 ! ; 1439 1 ! Where: ; 1440 1 ! <octal> is the octal number representing the handshake character ; 1441 1 ! for file transfers. ; 1442 1 ! ; 1443 1 ! Negative values indicate no handshaking. ; 1444 1 !-- ; 1445 1 ; P 1446 1 $STATE (SET_HAN_STATE, ; P 1447 1 ('NONE', DONE_STATE, , -1 ,IBM_CHAR), ; P 1448 1 (TPA$_OCTAL, DONE_STATE, , ,IBM_CHAR) ; 1449 1 ) ; 1450 1 ; 1451 1 !++ ; 1452 1 ! ; 1453 1 ! SET DELAY command. The format is: ; 1454 1 ! ; 1455 1 ! Kermit-32>SET DELAY <dec> ; 1456 1 ! ; 1457 1 ! Where: ; 1458 1 ! <dec> is the number of seconds to delay before sending the ; 1459 1 ! SEND-INIT packet. ; 1460 1 !-- ; 1461 1 ; P 1462 1 $STATE (SET_DEL_STATE, ; P 1463 1 (TPA$_DECIMAL, DONE_STATE, , ,DELAY) ; 1464 1 ) ; 1465 1 ; 1466 1 !++ ; 1467 1 ! ; 1468 1 ! SET FILE BLOCKSIZE command. The format is: ; 1469 1 ! ; 1470 1 ! Kermit-32>SET FILE BLOCKSIZE <size> ; 1471 1 ! ; 1472 1 ! Where: ; 1473 1 ! <size> is the number of bytes per fixed-length record for BINARY ; 1474 1 ! and FIXED files. ; 1475 1 !-- ; 1476 1 ; P 1477 1 $STATE (SET_BLK_STATE, ; P 1478 1 (TPA$_DECIMAL, DONE_STATE, store_blocksize, , file_blocksize) ; 1479 1 ) ; 1480 1 ; 1481 1 !++ ; 1482 1 ! ; 1483 1 ! SET ESCAPE command. The format is: ; 1484 1 ! ; 1485 1 ! Kermit-32>SET ESCAPE <octal> ; 1486 1 ! ; 1487 1 ! Where: ; 1488 1 ! <octal> is the octal number representing the escape character ; 1489 1 ! for the CONNECT command processing. The default escape character ; 1490 1 ! is Control-]. ; 1491 1 !-- ; 1492 1 ; P 1493 1 $STATE (SET_ESC_STATE, ; P 1494 1 (TPA$_OCTAL, DONE_STATE, , ,ESCAPE_CHR) ; 1495 1 ) ; 1496 1 !++ ; 1497 1 ! ; 1498 1 ! SET FILE xxx command. The format is: ; 1499 1 ! ; 1500 1 ! Kermit-32>SET FILE <item> <args> ; 1501 1 ! ; 1502 1 ! Where: ; 1503 1 ! <item> is one of: ; 1504 1 ! NAMING - Type of file name to send ; 1505 1 ! TYPE - Type of file to create on receive (or send in certain cases) ; 1506 1 ! BLOCKSIZE - Size of blocks (in bytes) for (FIXED and BINARY ; 1507 1 ! type) output files. ; 1508 1 ! ; 1509 1 !-- ; P 1510 1 $STATE (SET_FIL_STATE, ; P 1511 1 ('NAMING', SET_FNM_STATE), ; P 1512 1 ('TYPE', SET_FTP_STATE), ; P 1513 1 ('BLOCKSIZE', SET_BLK_STATE), ; P 1514 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1515 1 ) ; 1516 1 !++ ; 1517 1 ! ; 1518 1 ! SET FILE NAMING command. The format is: ; 1519 1 ! ; 1520 1 ! Kermit-32>SET FILE NAMING <type> ; 1521 1 ! ; 1522 1 ! Where: ; 1523 1 ! <type> is one of: ; 1524 1 ! FULL - Send complete file specification, including device and ; 1525 1 ! directory ; 1526 1 ! NORMAL_FORM - Send only name.type ; 1527 1 ! UNTRANSLATED - Send name.type, but don't do any fixups on it ; 1528 1 !-- ; 1529 1 ; P 1530 1 $STATE (SET_FNM_STATE, ; P 1531 1 ('FULL', DONE_STATE, STORE_FNM, , ,FNM_FULL), ; P 1532 1 ('NORMAL_FORM', DONE_STATE, STORE_FNM, , ,FNM_NORMAL), ; P 1533 1 ('UNTRANSLATED',DONE_STATE, STORE_FNM, , ,FNM_UNTRAN), ; P 1534 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1535 1 ) ; 1536 1 !++ ; 1537 1 ! ; 1538 1 ! SET FILE TYPE command. The format is: ; 1539 1 ! ; 1540 1 ! Kermit-32>SET FILE TYPE <type> ; 1541 1 ! ; 1542 1 ! Where: ; 1543 1 ! <Type> is one of the following: ; 1544 1 ! ASCII - Normal ASCII file (stream ascii) ; 1545 1 ! BINARY - Micro binary file. ; 1546 1 !-- ; 1547 1 ; P 1548 1 $STATE (SET_FTP_STATE, ; P 1549 1 ('ASCII', DONE_STATE, STORE_FTP, , ,FILE_ASC), ; P 1550 1 ('BINARY', DONE_STATE, STORE_FTP, , ,FILE_BIN), ; P 1551 1 ('BLOCK', DONE_STATE, STORE_FTP, , ,FILE_BLK), ; P 1552 1 ('FIXED', DONE_STATE, STORE_FTP, , ,FILE_FIX), ; P 1553 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1554 1 ) ; 1555 1 ; 1556 1 !++ ; 1557 1 ! SET LINE command. Format is: ; 1558 1 ! ; 1559 1 ! Kermit-32>SET LINE terminal-device: ; 1560 1 ! ; 1561 1 ! Where: ; 1562 1 ! Terminal-device: is the terminal line to use to the transfer of ; 1563 1 ! the data and to use in the CONNECT command. ; 1564 1 ! ; 1565 1 !-- ; 1566 1 ; P 1567 1 $STATE (SET_LIN_STATE, ; P 1568 1 (TPA$_ANY, SET_LIN_STATE, STORE_TEXT), ; P 1569 1 (TPA$_LAMBDA, DONE_STATE, COPY_TERM_NAME) ; 1570 1 ) ; 1571 1 ; 1572 1 !++ ; 1573 1 ! SET LOCAL-ECHO command. Format is: ; 1574 1 ! ; 1575 1 ! Kermit-32>SET LOCAL-ECHO state ; 1576 1 ! ; 1577 1 ! Where: ; 1578 1 ! STATE is either the keyword ON or OFF. ; 1579 1 ! ; 1580 1 !- ; 1581 1 ; P 1582 1 $STATE (SET_ECH_STATE, ; P 1583 1 ('OFF', DONE_STATE, STORE_ECHO, , ,FALSE), ; P 1584 1 ('ON', DONE_STATE, STORE_ECHO, , ,TRUE), ; P 1585 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1586 1 ) ; 1587 1 ; 1588 1 ; 1589 1 !++ ; 1590 1 ! SET MESSAGE command. Format is: ; 1591 1 ! ; 1592 1 ! Kermit-32>SET MESSAGE <keyword> ; 1593 1 ! ; 1594 1 ! Where the keyword is: ; 1595 1 ! ; 1596 1 ! FILE_NAMES - Type out file names being transferred ; 1597 1 ! PACKET_NUMBERS - Type out packet counts ; 1598 1 !-- ; 1599 1 ; P 1600 1 $STATE (SET_MSG_STATE, ; P 1601 1 ('FILE_NAMES', SET_MSG_FIL_STATE), ; P 1602 1 ('PACKET_NUMBERS', SET_MSG_PKT_STATE), ; P 1603 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1604 1 ) ; 1605 1 ; P 1606 1 $STATE (SET_MSG_FIL_STATE, ; P 1607 1 ('OFF', DONE_STATE, STORE_MSG_FIL, , ,FALSE), ; P 1608 1 ('ON', DONE_STATE, STORE_MSG_FIL, , ,TRUE), ; P 1609 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1610 1 ) ; 1611 1 ; P 1612 1 $STATE (SET_MSG_PKT_STATE, ; P 1613 1 ('OFF', DONE_STATE, STORE_MSG_PKT, , ,FALSE), ; P 1614 1 ('ON', DONE_STATE, STORE_MSG_PKT, , ,TRUE), ; P 1615 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1616 1 ) ; 1617 1 ; 1618 1 !++ ; 1619 1 ! SET PROMPT command. ; 1620 1 ! ; 1621 1 ! Kermit-32>SET PROMPT new-prompt-text ; 1622 1 ! ; 1623 1 !-- ; 1624 1 ; P 1625 1 $STATE (SET_PMT_STATE, ; P 1626 1 (TPA$_ANY, SET_PMT_STATE, STORE_TEXT), ; P 1627 1 (TPA$_LAMBDA, DONE_STATE, COPY_DESC, , ,PROMPT_DESC) ; 1628 1 ) ; 1629 1 ; 1630 1 !++ ; 1631 1 ! SET REPEAT_QUOTE command. Format is: ; 1632 1 ! ; 1633 1 ! Kermit-32>SET REPEAT_QUOTE <character value> ; 1634 1 ! ; 1635 1 !-- ; 1636 1 ; P 1637 1 $STATE (SET_RPT_STATE, ; P 1638 1 (TPA$_OCTAL, DONE_STATE, CHECK_QUOTE, ,SET_REPT_CHR) ; 1639 1 ) ; 1640 1 ; 1641 1 !++ ; 1642 1 ! SET RETRY command. Format is: ; 1643 1 ! ; 1644 1 ! Kermit-32>SET RETRY <keyword> ; 1645 1 ! ; 1646 1 ! Where the keyword is: ; 1647 1 ! ; 1648 1 ! INITIAL_CONNECTION - set number of initial connection retries. ; 1649 1 ! PACKET - set the number of packet retries. ; 1650 1 !-- ; 1651 1 ; P 1652 1 $STATE (SET_RTY_STATE, ; P 1653 1 ('INITIAL_CONNECTION', SET_RTY_INI_STATE), ; P 1654 1 ('PACKET', SET_RTY_PKT_STATE), ; P 1655 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1656 1 ) ; 1657 1 ; 1658 1 ; P 1659 1 $STATE (SET_RTY_INI_STATE, ; P 1660 1 (TPA$_DECIMAL, DONE_STATE, , ,SI_RETRIES) ; 1661 1 ) ; 1662 1 ; P 1663 1 $STATE (SET_RTY_PKT_STATE, ; P 1664 1 (TPA$_DECIMAL, DONE_STATE, , ,PKT_RETRIES) ; 1665 1 ) ; 1666 1 %SBTTL 'SET PARITY type' ; 1667 1 ; 1668 1 !++ ; 1669 1 ! SET PARITY command. Format is: ; 1670 1 ! ; 1671 1 ! Kermit-32>SET PARITY type ; 1672 1 ! ; 1673 1 ! The type can be: ; 1674 1 ! ; 1675 1 ! NONE - No parity processing ; 1676 1 ! MARK - Mark parity ; 1677 1 ! SPACE - Space parity ; 1678 1 ! EVEN - Even parity ; 1679 1 ! ODD - Odd parity ; 1680 1 ! ; 1681 1 !-- ; 1682 1 ; P 1683 1 $STATE (SET_PAR_STATE, ; P 1684 1 ('EVEN', DONE_STATE, STORE_PARITY, , ,PR_EVEN), ; P 1685 1 ('MARK', DONE_STATE, STORE_PARITY, , ,PR_MARK), ; P 1686 1 ('NONE', DONE_STATE, STORE_PARITY, , ,PR_NONE), ; P 1687 1 ('ODD', DONE_STATE, STORE_PARITY, , ,PR_ODD), ; P 1688 1 ('SPACE', DONE_STATE, STORE_PARITY, , ,PR_SPACE), ; P 1689 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1690 1 ) ; 1691 1 %SBTTL 'SET RECEIVE table' ; 1692 1 ; 1693 1 !++ ; 1694 1 ! SET RECEIVE command. Format is: ; 1695 1 ! ; 1696 1 ! Kermit-32>SET RECEIVE item ; 1697 1 ! ; 1698 1 ! Where: ; 1699 1 ! Item - One of the following: ; 1700 1 ! PACKET-LENGTH <dec> ; 1701 1 ! PADDING <dec> ; 1702 1 ! PADCHAR <chr> ; 1703 1 ! TIMEOUT <dec> ; 1704 1 ! END-OF-LINE <oct> ; 1705 1 ! QUOTE <chr> ; 1706 1 ! ; 1707 1 !-- ; 1708 1 ; P 1709 1 $STATE (SET_REC_STATE, ; P 1710 1 ('EIGHT-BIT-QUOTE', SR_8QU_STATE), ; P 1711 1 ('END_OF_LINE', SR_EOL_STATE), ; P 1712 1 ('PACKET_LENGTH', SR_PKT_STATE), ; P 1713 1 ('PADCHAR', SR_PDC_STATE), ; P 1714 1 ('PADDING', SR_PAD_STATE), ; P 1715 1 ('QUOTE', SR_QUO_STATE), ; P 1716 1 ('START_OF_PACKET', SR_SOH_STATE), ; P 1717 1 ('TIMEOUT', SR_TIM_STATE), ; P 1718 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1719 1 ) ; 1720 1 ; 1721 1 !++ ; 1722 1 ! ; 1723 1 ! SET RECEIVE PACKET-LENGTH command. Format is: ; 1724 1 ! ; 1725 1 ! Kermit-32>SET RECEIVE PACKET-LENGTH <dec> ; 1726 1 ! ; 1727 1 ! Where: ; 1728 1 ! <Dec> is a decimal number that specifies the length of a ; 1729 1 ! receive packet. ; 1730 1 ! ; 1731 1 !-- ; 1732 1 ; P 1733 1 $STATE (SR_PKT_STATE, ; P 1734 1 (TPA$_DECIMAL, DONE_STATE, CHECK_PACKET_LEN, ,RCV_PKT_SIZE) ; 1735 1 ) ; 1736 1 ; 1737 1 ; 1738 1 !++ ; 1739 1 ! ; 1740 1 ! SET RECEIVE PADDING command. The format of this command is: ; 1741 1 ! ; 1742 1 ! Kermit-32>SET RECEIVE PADDING <dec> ; 1743 1 ! ; 1744 1 ! Where: ; 1745 1 ! <dec> is the decimal number of padding characters to output. ; 1746 1 ! ; 1747 1 !-- ; 1748 1 ; P 1749 1 $STATE (SR_PAD_STATE, ; P 1750 1 (TPA$_DECIMAL, DONE_STATE, CHECK_NPAD, ,RCV_NPAD) ; 1751 1 ) ; 1752 1 ; 1753 1 !++ ; 1754 1 ! ; 1755 1 ! SET RECEIVE PADCHAR command. Format is: ; 1756 1 ! ; 1757 1 ! Kermit-32>SET RECEIVE PADCHAR <oct> ; 1758 1 ! ; 1759 1 ! Where: ; 1760 1 ! <oct> is the octal representation of the padding character ; 1761 1 ! that is to be used. ; 1762 1 ! ; 1763 1 !-- ; 1764 1 ; P 1765 1 $STATE (SR_PDC_STATE, ; P 1766 1 (TPA$_OCTAL, DONE_STATE, CHECK_PAD_CHAR, ,RCV_PADCHAR) ; 1767 1 ) ; 1768 1 !++ ; 1769 1 ! ; 1770 1 ! SET RECEIVE START_OF_PACKET command. Format is: ; 1771 1 ! ; 1772 1 ! Kermit-32>SET RECEIVE START_OF_PACKET <oct> ; 1773 1 ! ; 1774 1 ! Where: ; 1775 1 ! <oct> is the octal representation of the padding character ; 1776 1 ! that is to be used. ; 1777 1 ! ; 1778 1 !-- ; 1779 1 ; P 1780 1 $STATE (SR_SOH_STATE, ; P 1781 1 (TPA$_OCTAL, DONE_STATE, CHECK_SOH, ,RCV_SOH) ; 1782 1 ) ; 1783 1 ; 1784 1 !++ ; 1785 1 ! ; 1786 1 ! SET RECEIVE TIMEOUT command. The format is: ; 1787 1 ! ; 1788 1 ! Kermit-32>SET RECEIVE TIMEOUT <dec> ; 1789 1 ! ; 1790 1 ! Where: ; 1791 1 ! <dec> is the number of seconds before KERMIT-32 should time out ; 1792 1 ! attempting to receive a correct message. ; 1793 1 ! ; 1794 1 !-- ; 1795 1 ; P 1796 1 $STATE (SR_TIM_STATE, ; P 1797 1 (TPA$_DECIMAL, DONE_STATE, , ,RCV_TIMEOUT) ; 1798 1 ) ; 1799 1 ; 1800 1 !++ ; 1801 1 ! SET END-OF-LINE command. Format is: ; 1802 1 ! ; 1803 1 ! Kermit-32>SET RECEIVE END-OF-LINE <octal> ; 1804 1 ! ; 1805 1 ! Where: ; 1806 1 ! <octal> is the octal number representation of the character ; 1807 1 ! that is the end of line character. ; 1808 1 ! ; 1809 1 !-- ; 1810 1 ; P 1811 1 $STATE (SR_EOL_STATE, ; P 1812 1 (TPA$_OCTAL, DONE_STATE, CHECK_EOL, ,RCV_EOL) ; 1813 1 ) ; 1814 1 ; 1815 1 !++ ; 1816 1 ! SET RECEIVE QUOTE command. The format is: ; 1817 1 ! ; 1818 1 ! Kermit-32>SET RECEIVE QUOTE <octal> ; 1819 1 ! ; 1820 1 ! Where: ; 1821 1 ! <octal> is the octal number representing the quoting character. ; 1822 1 ! ; 1823 1 !-- ; 1824 1 ; P 1825 1 $STATE (SR_QUO_STATE, ; P 1826 1 (TPA$_OCTAL, DONE_STATE, CHECK_QUOTE, ,RCV_QUOTE_CHR) ; 1827 1 ) ; 1828 1 %SBTTL 'SET RECEIVE EIGHT-BIT-QUOTE' ; 1829 1 ; 1830 1 !++ ; 1831 1 ! This routine will handle the setting of the eight bit quoting character. ; 1832 1 ! ; 1833 1 ! Kermit-32>SET RECEIVE EIGHT-BIT-QUOTE <octal> ; 1834 1 ! ; 1835 1 ! Where: ; 1836 1 ! <octal> is the octal number representing the quoting character. ; 1837 1 ! ; 1838 1 !-- ; 1839 1 ; P 1840 1 $STATE (SR_8QU_STATE, ; P 1841 1 (TPA$_OCTAL, DONE_STATE, CHECK_QUOTE, ,RCV_8QUOTE_CHR) ; 1842 1 ) ; 1843 1 %SBTTL 'SET SEND tables' ; 1844 1 ; 1845 1 !++ ; 1846 1 ! SET SEND command. Format is: ; 1847 1 ! ; 1848 1 ! Kermit-32>SET SEND item ; 1849 1 ! ; 1850 1 ! Where: ; 1851 1 ! Item - One of the following: ; 1852 1 ! PACKET-LENGTH <dec> ; 1853 1 ! PADDING <dec> ; 1854 1 ! PADCHAR <chr> ; 1855 1 ! TIMEOUT <dec> ; 1856 1 ! END-OF-LINE <oct> ; 1857 1 ! QUOTE <chr> ; 1858 1 ! ; 1859 1 !-- ; 1860 1 ; P 1861 1 $STATE (SET_SND_STATE, ; P 1862 1 ('END_OF_LINE', SS_EOL_STATE), ; P 1863 1 ('PACKET_LENGTH', SS_PKT_STATE), ; P 1864 1 ('PADCHAR', SS_PDC_STATE), ; P 1865 1 ('PADDING', SS_PAD_STATE), ; P 1866 1 ('QUOTE', SS_QUO_STATE), ; P 1867 1 ('START_OF_PACKET', SS_SOH_STATE), ; P 1868 1 ('TIMEOUT', SS_TIM_STATE), ; P 1869 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 1870 1 ) ; 1871 1 ; 1872 1 ; 1873 1 ; 1874 1 !++ ; 1875 1 ! ; 1876 1 ! SET SEND PACKET-LENGTH command. Format is: ; 1877 1 ! ; 1878 1 ! Kermit-32>SET SEND PACKET-LENGTH <dec> ; 1879 1 ! ; 1880 1 ! Where: ; 1881 1 ! <Dec> is a decimal number that specifies the length of a ; 1882 1 ! receive packet. ; 1883 1 ! ; 1884 1 !-- ; 1885 1 ; P 1886 1 $STATE (SS_PKT_STATE, ; P 1887 1 (TPA$_DECIMAL, DONE_STATE, CHECK_PACKET_LEN, ,SND_PKT_SIZE) ; 1888 1 ) ; 1889 1 ; 1890 1 ; 1891 1 !++ ; 1892 1 ! ; 1893 1 ! SET SEND PADDING command. The format of this command is: ; 1894 1 ! ; 1895 1 ! Kermit-32>SET SEND PADDING <dec> ; 1896 1 ! ; 1897 1 ! Where: ; 1898 1 ! <dec> is the decimal number of padding characters to output. ; 1899 1 ! ; 1900 1 !-- ; 1901 1 ; P 1902 1 $STATE (SS_PAD_STATE, ; P 1903 1 (TPA$_DECIMAL, DONE_STATE, CHECK_NPAD, ,SND_NPAD) ; 1904 1 ) ; 1905 1 ; 1906 1 !++ ; 1907 1 ! ; 1908 1 ! SET SEND PADCHAR command. Format is: ; 1909 1 ! ; 1910 1 ! Kermit-32>SET SEND PADCHAR <oct> ; 1911 1 ! ; 1912 1 ! Where: ; 1913 1 ! <oct> is the octal representation of the padding character ; 1914 1 ! that is to be used. ; 1915 1 ! ; 1916 1 !-- ; 1917 1 ; P 1918 1 $STATE (SS_PDC_STATE, ; P 1919 1 (TPA$_OCTAL, DONE_STATE, CHECK_PAD_CHAR, ,SND_PADCHAR) ; 1920 1 ) ; 1921 1 !++ ; 1922 1 ! ; 1923 1 ! SET RECEIVE START_OF_PACKET command. Format is: ; 1924 1 ! ; 1925 1 ! Kermit-32>SET RECEIVE START_OF_PACKET <oct> ; 1926 1 ! ; 1927 1 ! Where: ; 1928 1 ! <oct> is the octal representation of the padding character ; 1929 1 ! that is to be used. ; 1930 1 ! ; 1931 1 !-- ; 1932 1 ; P 1933 1 $STATE (SS_SOH_STATE, ; P 1934 1 (TPA$_OCTAL, DONE_STATE, CHECK_SOH, ,SND_SOH) ; 1935 1 ) ; 1936 1 ; 1937 1 !++ ; 1938 1 ! ; 1939 1 ! SET SEND TIMEOUT command. The format is: ; 1940 1 ! ; 1941 1 ! Kermit-32>SET SEND TIMEOUT <dec> ; 1942 1 ! ; 1943 1 ! Where: ; 1944 1 ! <dec> is the number of seconds before KERMIT-32 should time out ; 1945 1 ! attempting to receive a correct message. ; 1946 1 ! ; 1947 1 !-- ; 1948 1 ; P 1949 1 $STATE (SS_TIM_STATE, ; P 1950 1 (TPA$_DECIMAL, DONE_STATE, , ,SND_TIMEOUT) ; 1951 1 ) ; 1952 1 ; 1953 1 !++ ; 1954 1 ! SET SEND END-OF-LINE command. Format is: ; 1955 1 ! ; 1956 1 ! Kermit-32>SET SEND END-OF-LINE <octal> ; 1957 1 ! ; 1958 1 ! Where: ; 1959 1 ! <octal> is the octal number representation of the character ; 1960 1 ! that is the end of line character. ; 1961 1 ! ; 1962 1 !-- ; 1963 1 ; P 1964 1 $STATE (SS_EOL_STATE, ; P 1965 1 (TPA$_OCTAL, DONE_STATE, CHECK_EOL, ,SND_EOL) ; 1966 1 ) ; 1967 1 ; 1968 1 !++ ; 1969 1 ! SET SEND QUOTA command. The format is: ; 1970 1 ! ; 1971 1 ! Kermit-32>SET SEND QUOTA <octal> ; 1972 1 ! ; 1973 1 ! Where: ; 1974 1 ! <octal> is the octal number representing the quoting character. ; 1975 1 ! ; 1976 1 !-- ; 1977 1 ; P 1978 1 $STATE (SS_QUO_STATE, ; P 1979 1 (TPA$_OCTAL, DONE_STATE, CHECK_QUOTE, ,SND_QUOTE_CHR) ; 1980 1 ) ; 1981 1 ; 1982 1 !++ ; 1983 1 ! SET SERVER_TIMER command. ; 1984 1 ! ; 1985 1 ! This sets the time between naks send when server is idle. ; 1986 1 !-- ; 1987 1 ; P 1988 1 $STATE (SET_SRV_STATE, ; P 1989 1 (TPA$_DECIMAL, DONE_STATE, , ,SRV_TIMEOUT) ; 1990 1 ) ; 1991 1 ; 1992 1 !++ ; 1993 1 ! ; 1994 1 ! SET TRANSMIT xxx command. The format is: ! and below ; 1995 1 ! ; 1996 1 ! Kermit-32>SET TRANSMIT <item> <args> ; 1997 1 ! ; 1998 1 ! Where: ; 1999 1 ! <item> is one of: ; 2000 1 ! DELAY - Time to delay after each carriage return ; 2001 1 ! ECHO - Echo from terminal line or just print line numbers ; 2002 1 ! ; 2003 1 !-- ; P 2004 1 $STATE (SET_TRN_STATE, ! ; P 2005 1 ('DELAY', SET_TRD_STATE), ! ; P 2006 1 ('ECHO', SET_TRE_STATE), ! ; P 2007 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ! ; 2008 1 ) ! ; 2009 1 ; 2010 1 !++ ; 2011 1 ! ; 2012 1 ! SET TRANSMIT DELAY command. Format is: ! and below ; 2013 1 ! ; 2014 1 ! Kermit-32>SET TRANSMIT DELAY <digit> ; 2015 1 ! ; 2016 1 ! Where: ; 2017 1 ! <digit> is a decimal digit that specifies the length of time in ; 2018 1 ! tenths of a second to delay after transmitting a carriage return. ; 2019 1 ! ; 2020 1 !-- ; 2021 1 ; P 2022 1 $STATE (SET_TRD_STATE, ! ; P 2023 1 (TPA$_DIGIT, DONE_STATE, STORE_TR_DELAY, ,TRANS_DELAY) ! ; 2024 1 ) ! ; 2025 1 ; 2026 1 !++ ; 2027 1 ! ; 2028 1 ! SET TRANSMIT ECHO command. The format is: ! and below ; 2029 1 ! ; 2030 1 ! Kermit-32>SET TRANSMIT ECHO (on/off) ; 2031 1 ! ; 2032 1 ! Where: ; 2033 1 ! on/off is either the ON or OFF keyword. ; 2034 1 ! ; 2035 1 !-- ; 2036 1 ; P 2037 1 $STATE (SET_TRE_STATE, ! ; P 2038 1 ('ON', DONE_STATE, STORE_TR_ECHO, , ,TRUE), ! ; P 2039 1 ('OFF', DONE_STATE, STORE_TR_ECHO, , ,FALSE),! ; P 2040 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ! ; 2041 1 ) ! ; 2042 1 %SBTTL 'SEND command' ; 2043 1 ; 2044 1 !++ ; 2045 1 ! SEND command. The format is: ; 2046 1 ! ; 2047 1 ! Kermit-32>SEND file-specification ; 2048 1 ! ; 2049 1 ! Where: ; 2050 1 ! FILE-SPECIFICATION is any valid VAX/VMS file specification. ; 2051 1 ! ; 2052 1 !-- ; 2053 1 ; P 2054 1 $STATE (SEND_STATE, ; P 2055 1 (TPA$_ANY, SEND_STATE, STORE_TEXT), ; P 2056 1 (TPA$_LAMBDA, DONE_STATE, COPY_DESC, , ,FILE_DESC) ; 2057 1 ) ; 2058 1 %SBTTL 'SHOW command' ; 2059 1 ; 2060 1 !++ ; 2061 1 ! SHOW command. The format is: ; 2062 1 ! ; 2063 1 ! Kermit-32>SHOW <parameter> ; 2064 1 ! ; 2065 1 ! Where: ; 2066 1 ! <Parameter> is one of the following: ; 2067 1 ! SEND - Send parameters ; 2068 1 ! RECEIVE - Receive parameters ; 2069 1 ! DEBUGGING - State of the debugging flag ; 2070 1 ! FILE-TYPE - Type of the file ; 2071 1 ! LOCAL-ECHO - Local echo flag ; 2072 1 ! LINE - Current line associated ; 2073 1 ! ESCAPE - Current escape character ; 2074 1 ! DELAY - Delay parameter. ; 2075 1 ! ; 2076 1 !-- ; 2077 1 ; P 2078 1 $STATE (SHOW_STATE, ; P 2079 1 ('ALL', DONE_STATE, ,SHOW_ALL, SHOW_TYPE), ; P 2080 1 ('BLOCK_CHECK_TYPE', DONE_STATE, ,SHOW_CHK, SHOW_TYPE), ; P 2081 1 ('COMMUNICATIONS', DONE_STATE, ,SHOW_COM, SHOW_TYPE), ; P 2082 1 ('DEBUGGING', DONE_STATE, ,SHOW_DEB, SHOW_TYPE), ; P 2083 1 ('DELAY', DONE_STATE, ,SHOW_DEL, SHOW_TYPE), ; P 2084 1 ('ESCAPE', DONE_STATE, ,SHOW_ESC, SHOW_TYPE), ; P 2085 1 ('FILE_PARAMETERS', DONE_STATE, ,SHOW_FIL, SHOW_TYPE), ; P 2086 1 ('INCOMPLETE_FILE_DISPOSITION',DONE_STATE, ,SHOW_ABT, SHOW_TYPE), ; P 2087 1 ('LINE', DONE_STATE, ,SHOW_LIN, SHOW_TYPE), ; P 2088 1 ('LOCAL_ECHO', DONE_STATE, ,SHOW_ECH, SHOW_TYPE), ; P 2089 1 ('PACKET', DONE_STATE, ,SHOW_PAC, SHOW_TYPE), ; P 2090 1 ('PARITY', DONE_STATE, ,SHOW_PAR, SHOW_TYPE), ; P 2091 1 ('SEND', DONE_STATE, ,SHOW_SEN, SHOW_TYPE), ; P 2092 1 ('TIMING', DONE_STATE, ,SHOW_TIM, SHOW_TYPE), ; P 2093 1 ('RECEIVE', DONE_STATE, ,SHOW_REC, SHOW_TYPE), ; P 2094 1 ('RETRY', DONE_STATE, ,SHOW_RTY, SHOW_TYPE), ; P 2095 1 ('VERSION', DONE_STATE, ,SHOW_VER, SHOW_TYPE), ; P 2096 1 ('TRANSMIT', DONE_STATE, ,SHOW_TRN, SHOW_TYPE), ! ; P 2097 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 2098 1 ) ; 2099 1 %SBTTL 'LOG command' ; 2100 1 ; 2101 1 !++ ; 2102 1 ! The LOG command allows the specification of a session or transaction ; 2103 1 !log file. ; 2104 1 !-- ; 2105 1 ; P 2106 1 $STATE (LOG_STATE, ; P 2107 1 ('DEBUGGING', DBG_STATE), ; P 2108 1 ('SESSION', SES_STATE), ; P 2109 1 ('TRANSACTIONS',TRN_STATE), ; P 2110 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 2111 1 ) ; 2112 1 ; P 2113 1 $STATE (DBG_STATE, ; P 2114 1 (TPA$_ANY, DBG_STATE, STORE_TEXT), ; P 2115 1 (TPA$_LAMBDA, DONE_STATE, COPY_DESC, , ,DEBUG_DESC) ; 2116 1 ) ; 2117 1 ; P 2118 1 $STATE (SES_STATE, ; P 2119 1 (TPA$_ANY, SES_STATE, STORE_TEXT), ; P 2120 1 (TPA$_LAMBDA, DONE_STATE, COPY_DESC, , ,SESSION_DESC) ; 2121 1 ) ; 2122 1 ; P 2123 1 $STATE (TRN_STATE, ; P 2124 1 (TPA$_ANY, TRN_STATE, STORE_TEXT), ; P 2125 1 (TPA$_LAMBDA, DONE_STATE, COPY_DESC, , ,TRANSACTION_DESC) ; 2126 1 ) ; 2127 1 ; 2128 1 ; 2129 1 %SBTTL 'Take command tables' ; 2130 1 ; 2131 1 !++ ; 2132 1 ! The following describes the TAKE (or @) command. ; 2133 1 !-- ; 2134 1 ; P 2135 1 $STATE (TAKE_STATE, ; P 2136 1 ('/', TAK_SWT_STATE, COPY_DESC, , ,TAK_FIL_DESC), ; P 2137 1 (TPA$_ANY, TAKE_STATE, STORE_TEXT), ; P 2138 1 (TPA$_LAMBDA, DONE_STATE, COPY_DESC, , ,TAK_FIL_DESC) ; 2139 1 ) ; 2140 1 ; P 2141 1 $STATE (TAK_SWT_STATE, ; P 2142 1 ('DISPLAY', DONE_STATE, ,TRUE, TAKE_DISPLAY), ; P 2143 1 (TPA$_SYMBOL, TPA$_FAIL, KEY_ERROR) ; 2144 1 ) ; 2145 1 ; 2146 1 %SBTTL 'TRANSMIT command' ! ; 2147 1 ! ; 2148 1 !++ ! ; 2149 1 ! TRANSMIT command. The format is: ! ; 2150 1 ! ! ; 2151 1 ! Kermit-32>TRANSMIT file-specification ! ; 2152 1 ! ! ; 2153 1 ! Where: ! ; 2154 1 ! FILE-SPECIFICATION is any valid VAX/VMS file specification. ! ; 2155 1 ! ! ; 2156 1 !-- ! ; 2157 1 ! ; P 2158 1 $STATE (TRANSMIT_STATE, ! ; P 2159 1 (TPA$_ANY, TRANSMIT_STATE, STORE_TEXT), ! ; P 2160 1 (TPA$_LAMBDA, DONE_STATE, COPY_DESC, , ,FILE_DESC) ! ; 2161 1 ) ! ; 2162 1 ; 2163 1 %SBTTL 'Done state' ; 2164 1 ; 2165 1 !++ ; 2166 1 ! This is the single state that is the required CONFIRM for the end ; 2167 1 ! of the commands. ; 2168 1 !-- ; 2169 1 ; P 2170 1 $STATE (DONE_STATE, ; P 2171 1 (TPA$_EOS, TPA$_EXIT) ; 2172 1 ) ; 2173 1 ; 2174 1 !++ ; 2175 1 ! ; 2176 1 ! End of the KERMIT-32 command definitions ; 2177 1 ! ; 2178 1 !-- ; 2179 1 ; 2180 1 PSECT OWN = $OWN$; ; 2181 1 PSECT GLOBAL = $GLOBAL$; ; 2182 1 ; 2183 1 !<BLF/FORMAT> ; 2184 1 ROUTINE MAIN_ROUTINE = ; 2185 1 ; 2186 1 !++ ; 2187 1 ! FUNCTIONAL DESCRIPTION: ; 2188 1 ! ; 2189 1 ! This is the main routine for KERMIT-32. This routine will ; 2190 1 ! initialize the various parameters and then call the command ; 2191 1 ! scanner to process commands. ; 2192 1 ! ; 2193 1 ! FORMAL PARAMETERS: ; 2194 1 ! ; 2195 1 ! None. ; 2196 1 ! ; 2197 1 ! IMPLICIT INPUTS: ; 2198 1 ! ; 2199 1 ! None. ; 2200 1 ! ; 2201 1 ! IMPLICIT OUTPUTS: ; 2202 1 ! ; 2203 1 ! None. ; 2204 1 ! ; 2205 1 ! ROUTINE VALUE and ; 2206 1 ! COMPLETION CODES: ; 2207 1 ! ; 2208 1 ! Return status from last command. ; 2209 1 ! ; 2210 1 ! SIDE EFFECTS: ; 2211 1 ! ; 2212 1 ! None. ; 2213 1 ! ; 2214 1 !-- ; 2215 1 ; 2216 2 BEGIN ; 2217 2 ; 2218 2 LOCAL ; 2219 2 STATUS, ! Returned status ; 2220 2 CRC_BIT_MASK, ! Bit mask for CRC initialization ; 2221 2 LOOP_FLAG; ; 2222 2 ; 2223 2 ! ; 2224 2 ! Initialize some variables ; 2225 2 ! ; 2226 2 STATUS = LIB$PUT_OUTPUT (IDENT_STRING); ! Say who we are ; 2227 2 MSG_INIT (); ! Initialize message processing ; 2228 2 TERM_INIT (); ! Init terminal processing ; 2229 2 TT_INIT (); ! Init text processing ; 2230 2 FILE_INIT (); ! Init file processing ; 2231 2 SY_INIT (); ! Init system routines ; 2232 2 ESCAPE_CHR = CHR_ESCAPE; ; 2233 2 ! ; 2234 2 ! Initialize some VAX/VMS interface items ; 2235 2 ! ; 2236 2 CRC_BIT_MASK = %O'102010'; ! CRC bit mask ; 2237 2 LIB$CRC_TABLE (CRC_BIT_MASK, CRC_TABLE); ; 2238 2 LIB$ESTABLISH (KERM_HANDLER); ; 2239 2 ! ; 2240 2 ! Initialize transaction log file descriptor ; 2241 2 ! ; 2242 2 INIT_STR_DESC (TRANSACTION_DESC, TRANSACTION_NAME, 0); ; 2243 2 ! ; 2244 2 ! Initialize take file descriptor ; 2245 2 ! ; 2246 2 INIT_STR_DESC (TAK_FIL_DESC, TAK_FIL_NAME, 0); ; 2247 2 ! ; 2248 2 ! Initialize prompt descriptor ; 2249 2 ! ; 2250 2 INIT_STR_DESC (PROMPT_DESC, PROMPT_TEXT, 0); ; 2251 2 ! ; 2252 2 ! Take initialization file ; 2253 2 ! ; 2254 2 COMND_FILE (%ASCID'VMSKERMIT', %ASCID'.INI;0', TRUE, FALSE); ; 2255 2 ! ; 2256 2 ! Main command loop ; 2257 2 ! ; 2258 2 Status = COMND (); ; 2259 2 RETURN .Final_Status OR STS$M_INHIB_MSG; ; 2260 1 END; ! end of routine MAIN_ROUTINE .TITLE KERMIT .IDENT \3.3.128\ .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAB: .ASCII \VMS Kermit-32 version 3.3.128\<0><0><0> ; 6D 72 65 4B 20 53 4D 56 00000 ; 65 76 20 32 33 2D 74 69 00008 ; 2E 33 20 6E 6F 69 73 72 00010 ; 00 00 00 38 32 31 2E 33 00018 P.AAA: .LONG 17694749 ; 010E001D 00020 .ADDRESS P.AAB ; 00000000' 00024 P.AAD: .ASCII \Kermit-32>\<0><0> ; 33 2D 74 69 6D 72 65 4B 00028 ; 00 00 3E 32 00030 P.AAC: .LONG 17694730 ; 010E000A 00034 .ADDRESS P.AAD ; 00000000' 00038 P.AAF: .ASCII \VMSKERMIT\<0><0><0> ; 49 4D 52 45 4B 53 4D 56 0003C ; 00 00 00 54 00044 P.AAE: .LONG 17694729 ; 010E0009 00048 .ADDRESS P.AAF ; 00000000' 0004C P.AAH: .ASCII \.INI;0\<0><0> ; 00 00 30 3B 49 4E 49 2E 00050 P.AAG: .LONG 17694726 ; 010E0006 00058 .ADDRESS P.AAH ; 00000000' 0005C .PSECT $GLOBAL$,NOEXE,2 TRANSACTION_DESC:: .BLKB 8 ; 00000 TRANSACTION_OPEN:: .BLKB 4 ; 00008 TRANSACTION_FAB:: .BLKB 80 ; 0000C TRANSACTION_RAB:: .BLKB 68 ; 0005C ESCAPE_CHR:: .BLKB 4 ; 000A0 ALT_FILE_SIZE:: .BLKB 4 ; 000A4 ALT_FILE_NAME:: .BLKB 132 ; 000A8 .PSECT $OWN$,NOEXE,2 ;TPARSE_BLOCK U.47: .LONG 8, 2 ; 00000002 00000008 00000 .BLKB 28 ; 00008 ;BAD_CMD_DESC U.48: .BLKB 8 ; 00024 ;COMMAND U.49: .BLKB 4 ; 0002C ;SHOW_TYPE U.50: .BLKB 4 ; 00030 ;REM_TYPE U.51: .BLKB 4 ; 00034 ;TAKE_DISPLAY U.52: .BLKB 4 ; 00038 ;OUTPUT_LINE U.53: .BLKB 80 ; 0003C ;OUTPUT_DESC U.54: .BLKB 8 ; 0008C ;OUTPUT_SIZE U.55: .BLKB 2 ; 00094 .BLKB 2 ; 00096 ;FINAL_STATUS U.56: .LONG 1 ; 00000001 00098 ;TRANSACTION_NAME U.57: .BLKB 132 ; 0009C ;PROMPT_DESC U.58: .BLKB 8 ; 00120 ;PROMPT_TEXT U.59: .BLKB 132 ; 00128 ;CRC_TABLE U.60: .BLKB 64 ; 001AC ;TAK_FIL_DESC U.61: .BLKB 8 ; 001EC ;TAK_FIL_NAME U.62: .BLKB 132 ; 001F4 ;TEMP_DESC U.63: .BLKB 8 ; 00278 ;TEMP_NAME U.64: .BLKB 132 ; 00280 .PSECT _LIB$KEY0$,NOWRT, SHR, PIC,1 KERMIT_KEY:: .BLKB 0 ; 00000 ;TPA$KEY0 U.66: .BLKB 0 ; 00000 ;TPA$KEY U.70: .WORD <U.69-U.66> ; 0000* 00000 ;TPA$KEY U.78: .WORD <U.77-U.66> ; 0000* 00002 ;TPA$KEY U.86: .WORD <U.85-U.66> ; 0000* 00004 ;TPA$KEY U.93: .WORD <U.92-U.66> ; 0000* 00006 ;TPA$KEY U.100: .WORD <U.99-U.66> ; 0000* 00008 ;TPA$KEY U.108: .WORD <U.107-U.66> ; 0000* 0000A ;TPA$KEY U.116: .WORD <U.115-U.66> ; 0000* 0000C ;TPA$KEY U.124: .WORD <U.123-U.66> ; 0000* 0000E ;TPA$KEY U.132: .WORD <U.131-U.66> ; 0000* 00010 ;TPA$KEY U.139: .WORD <U.138-U.66> ; 0000* 00012 ;TPA$KEY U.146: .WORD <U.145-U.66> ; 0000* 00014 ;TPA$KEY U.153: .WORD <U.152-U.66> ; 0000* 00016 ;TPA$KEY U.161: .WORD <U.160-U.66> ; 0000* 00018 ;TPA$KEY U.168: .WORD <U.167-U.66> ; 0000* 0001A ;TPA$KEY U.176: .WORD <U.175-U.66> ; 0000* 0001C ;TPA$KEY U.184: .WORD <U.183-U.66> ; 0000* 0001E ;TPA$KEY U.191: .WORD <U.190-U.66> ; 0000* 00020 ;TPA$KEY U.199: .WORD <U.198-U.66> ; 0000* 00022 ;TPA$KEY U.206: .WORD <U.205-U.66> ; 0000* 00024 ;TPA$KEY U.218: .WORD <U.217-U.66> ; 0000* 00026 ;TPA$KEY U.260: .WORD <U.259-U.66> ; 0000* 00028 ;TPA$KEY U.268: .WORD <U.267-U.66> ; 0000* 0002A ;TPA$KEY U.276: .WORD <U.275-U.66> ; 0000* 0002C ;TPA$KEY U.283: .WORD <U.282-U.66> ; 0000* 0002E ;TPA$KEY U.290: .WORD <U.289-U.66> ; 0000* 00030 ;TPA$KEY U.297: .WORD <U.296-U.66> ; 0000* 00032 ;TPA$KEY U.304: .WORD <U.303-U.66> ; 0000* 00034 ;TPA$KEY U.311: .WORD <U.310-U.66> ; 0000* 00036 ;TPA$KEY U.318: .WORD <U.317-U.66> ; 0000* 00038 ;TPA$KEY U.325: .WORD <U.324-U.66> ; 0000* 0003A ;TPA$KEY U.332: .WORD <U.331-U.66> ; 0000* 0003C ;TPA$KEY U.339: .WORD <U.338-U.66> ; 0000* 0003E ;TPA$KEY U.346: .WORD <U.345-U.66> ; 0000* 00040 ;TPA$KEY U.353: .WORD <U.352-U.66> ; 0000* 00042 ;TPA$KEY U.360: .WORD <U.359-U.66> ; 0000* 00044 ;TPA$KEY U.367: .WORD <U.366-U.66> ; 0000* 00046 ;TPA$KEY U.389: .WORD <U.388-U.66> ; 0000* 00048 ;TPA$KEY U.395: .WORD <U.394-U.66> ; 0000* 0004A ;TPA$KEY U.401: .WORD <U.400-U.66> ; 0000* 0004C ;TPA$KEY U.407: .WORD <U.406-U.66> ; 0000* 0004E ;TPA$KEY U.413: .WORD <U.412-U.66> ; 0000* 00050 ;TPA$KEY U.419: .WORD <U.418-U.66> ; 0000* 00052 ;TPA$KEY U.425: .WORD <U.424-U.66> ; 0000* 00054 ;TPA$KEY U.431: .WORD <U.430-U.66> ; 0000* 00056 ;TPA$KEY U.437: .WORD <U.436-U.66> ; 0000* 00058 ;TPA$KEY U.442: .WORD <U.441-U.66> ; 0000* 0005A ;TPA$KEY U.448: .WORD <U.447-U.66> ; 0000* 0005C ;TPA$KEY U.454: .WORD <U.453-U.66> ; 0000* 0005E ;TPA$KEY U.460: .WORD <U.459-U.66> ; 0000* 00060 ;TPA$KEY U.466: .WORD <U.465-U.66> ; 0000* 00062 ;TPA$KEY U.472: .WORD <U.471-U.66> ; 0000* 00064 ;TPA$KEY U.478: .WORD <U.477-U.66> ; 0000* 00066 ;TPA$KEY U.484: .WORD <U.483-U.66> ; 0000* 00068 ;TPA$KEY U.490: .WORD <U.489-U.66> ; 0000* 0006A ;TPA$KEY U.496: .WORD <U.495-U.66> ; 0000* 0006C ;TPA$KEY U.506: .WORD <U.505-U.66> ; 0000* 0006E ;TPA$KEY U.514: .WORD <U.513-U.66> ; 0000* 00070 ;TPA$KEY U.526: .WORD <U.525-U.66> ; 0000* 00072 ;TPA$KEY U.534: .WORD <U.533-U.66> ; 0000* 00074 ;TPA$KEY U.542: .WORD <U.541-U.66> ; 0000* 00076 ;TPA$KEY U.550: .WORD <U.549-U.66> ; 0000* 00078 ;TPA$KEY U.558: .WORD <U.557-U.66> ; 0000* 0007A ;TPA$KEY U.566: .WORD <U.565-U.66> ; 0000* 0007C ;TPA$KEY U.578: .WORD <U.577-U.66> ; 0000* 0007E ;TPA$KEY U.586: .WORD <U.585-U.66> ; 0000* 00080 ;TPA$KEY U.598: .WORD <U.597-U.66> ; 0000* 00082 ;TPA$KEY U.606: .WORD <U.605-U.66> ; 0000* 00084 ;TPA$KEY U.618: .WORD <U.617-U.66> ; 0000* 00086 ;TPA$KEY U.640: .WORD <U.639-U.66> ; 0000* 00088 ;TPA$KEY U.646: .WORD <U.645-U.66> ; 0000* 0008A ;TPA$KEY U.652: .WORD <U.651-U.66> ; 0000* 0008C ;TPA$KEY U.661: .WORD <U.660-U.66> ; 0000* 0008E ;TPA$KEY U.669: .WORD <U.668-U.66> ; 0000* 00090 ;TPA$KEY U.677: .WORD <U.676-U.66> ; 0000* 00092 ;TPA$KEY U.689: .WORD <U.688-U.66> ; 0000* 00094 ;TPA$KEY U.697: .WORD <U.696-U.66> ; 0000* 00096 ;TPA$KEY U.705: .WORD <U.704-U.66> ; 0000* 00098 ;TPA$KEY U.713: .WORD <U.712-U.66> ; 0000* 0009A ;TPA$KEY U.731: .WORD <U.730-U.66> ; 0000* 0009C ;TPA$KEY U.739: .WORD <U.738-U.66> ; 0000* 0009E ;TPA$KEY U.751: .WORD <U.750-U.66> ; 0000* 000A0 ;TPA$KEY U.757: .WORD <U.756-U.66> ; 0000* 000A2 ;TPA$KEY U.767: .WORD <U.766-U.66> ; 0000* 000A4 ;TPA$KEY U.775: .WORD <U.774-U.66> ; 0000* 000A6 ;TPA$KEY U.787: .WORD <U.786-U.66> ; 0000* 000A8 ;TPA$KEY U.795: .WORD <U.794-U.66> ; 0000* 000AA ;TPA$KEY U.819: .WORD <U.818-U.66> ; 0000* 000AC ;TPA$KEY U.825: .WORD <U.824-U.66> ; 0000* 000AE ;TPA$KEY U.841: .WORD <U.840-U.66> ; 0000* 000B0 ;TPA$KEY U.849: .WORD <U.848-U.66> ; 0000* 000B2 ;TPA$KEY U.857: .WORD <U.856-U.66> ; 0000* 000B4 ;TPA$KEY U.865: .WORD <U.864-U.66> ; 0000* 000B6 ;TPA$KEY U.873: .WORD <U.872-U.66> ; 0000* 000B8 ;TPA$KEY U.885: .WORD <U.884-U.66> ; 0000* 000BA ;TPA$KEY U.891: .WORD <U.890-U.66> ; 0000* 000BC ;TPA$KEY U.897: .WORD <U.896-U.66> ; 0000* 000BE ;TPA$KEY U.903: .WORD <U.902-U.66> ; 0000* 000C0 ;TPA$KEY U.909: .WORD <U.908-U.66> ; 0000* 000C2 ;TPA$KEY U.915: .WORD <U.914-U.66> ; 0000* 000C4 ;TPA$KEY U.921: .WORD <U.920-U.66> ; 0000* 000C6 ;TPA$KEY U.927: .WORD <U.926-U.66> ; 0000* 000C8 ;TPA$KEY U.968: .WORD <U.967-U.66> ; 0000* 000CA ;TPA$KEY U.974: .WORD <U.973-U.66> ; 0000* 000CC ;TPA$KEY U.980: .WORD <U.979-U.66> ; 0000* 000CE ;TPA$KEY U.986: .WORD <U.985-U.66> ; 0000* 000D0 ;TPA$KEY U.992: .WORD <U.991-U.66> ; 0000* 000D2 ;TPA$KEY U.998: .WORD <U.997-U.66> ; 0000* 000D4 ;TPA$KEY U.1004: .WORD <U.1003-U.66> ; 0000* 000D6 ;TPA$KEY U.1044: .WORD <U.1043-U.66> ; 0000* 000D8 ;TPA$KEY U.1050: .WORD <U.1049-U.66> ; 0000* 000DA ;TPA$KEY U.1064: .WORD <U.1063-U.66> ; 0000* 000DC ;TPA$KEY U.1072: .WORD <U.1071-U.66> ; 0000* 000DE ;TPA$KEY U.1092: .WORD <U.1091-U.66> ; 0000* 000E0 ;TPA$KEY U.1099: .WORD <U.1098-U.66> ; 0000* 000E2 ;TPA$KEY U.1106: .WORD <U.1105-U.66> ; 0000* 000E4 ;TPA$KEY U.1113: .WORD <U.1112-U.66> ; 0000* 000E6 ;TPA$KEY U.1120: .WORD <U.1119-U.66> ; 0000* 000E8 ;TPA$KEY U.1127: .WORD <U.1126-U.66> ; 0000* 000EA ;TPA$KEY U.1134: .WORD <U.1133-U.66> ; 0000* 000EC ;TPA$KEY U.1141: .WORD <U.1140-U.66> ; 0000* 000EE ;TPA$KEY U.1148: .WORD <U.1147-U.66> ; 0000* 000F0 ;TPA$KEY U.1155: .WORD <U.1154-U.66> ; 0000* 000F2 ;TPA$KEY U.1162: .WORD <U.1161-U.66> ; 0000* 000F4 ;TPA$KEY U.1169: .WORD <U.1168-U.66> ; 0000* 000F6 ;TPA$KEY U.1176: .WORD <U.1175-U.66> ; 0000* 000F8 ;TPA$KEY U.1183: .WORD <U.1182-U.66> ; 0000* 000FA ;TPA$KEY U.1190: .WORD <U.1189-U.66> ; 0000* 000FC ;TPA$KEY U.1197: .WORD <U.1196-U.66> ; 0000* 000FE ;TPA$KEY U.1204: .WORD <U.1203-U.66> ; 0000* 00100 ;TPA$KEY U.1211: .WORD <U.1210-U.66> ; 0000* 00102 ;TPA$KEY U.1222: .WORD <U.1221-U.66> ; 0000* 00104 ;TPA$KEY U.1228: .WORD <U.1227-U.66> ; 0000* 00106 ;TPA$KEY U.1234: .WORD <U.1233-U.66> ; 0000* 00108 ;TPA$KEY U.1282: .WORD <U.1281-U.66> ; 0000* 0010A .PSECT _LIB$STATE$,NOWRT, SHR, PIC,1 KERMIT_STATE:: .BLKB 0 ; 00000 ;START U.68: .BLKB 0 ; 00000 ;TPA$TYPE U.72: .WORD 28928 ; 7100 00000 ;TPA$ADDR U.73: .LONG <<U.49-U.73>-4> ; 00000000* 00002 ;TPA$MASK U.74: .LONG 11 ; 0000000B 00006 ;TPA$TARGET U.76: .WORD <<U.75-U.76>-2> ; 0000* 0000A ;TPA$TYPE U.80: .WORD 28929 ; 7101 0000C ;TPA$ADDR U.81: .LONG <<U.49-U.81>-4> ; 00000000* 0000E ;TPA$MASK U.82: .LONG 1 ; 00000001 00012 ;TPA$TARGET U.84: .WORD <<U.83-U.84>-2> ; 0000* 00016 ;TPA$TYPE U.88: .WORD 28930 ; 7102 00018 ;TPA$ADDR U.89: .LONG <<U.49-U.89>-4> ; 00000000* 0001A ;TPA$MASK U.90: .LONG 2 ; 00000002 0001E ;TPA$TARGET U.91: .WORD <<U.75-U.91>-2> ; 0000* 00022 ;TPA$TYPE U.95: .WORD 28931 ; 7103 00024 ;TPA$ADDR U.96: .LONG <<U.49-U.96>-4> ; 00000000* 00026 ;TPA$MASK U.97: .LONG 12 ; 0000000C 0002A ;TPA$TARGET U.98: .WORD <<U.75-U.98>-2> ; 0000* 0002E ;TPA$TYPE U.102: .WORD 28932 ; 7104 00030 ;TPA$ADDR U.103: .LONG <<U.49-U.103>-4> ; 00000000* 00032 ;TPA$MASK U.104: .LONG 13 ; 0000000D 00036 ;TPA$TARGET U.106: .WORD <<U.105-U.106>-2> ; 0000* 0003A ;TPA$TYPE U.110: .WORD 28933 ; 7105 0003C ;TPA$ADDR U.111: .LONG <<U.49-U.111>-4> ; 00000000* 0003E ;TPA$MASK U.112: .LONG 3 ; 00000003 00042 ;TPA$TARGET U.114: .WORD <<U.113-U.114>-2> ; 0000* 00046 ;TPA$TYPE U.118: .WORD 28934 ; 7106 00048 ;TPA$ADDR U.119: .LONG <<U.49-U.119>-4> ; 00000000* 0004A ;TPA$MASK U.120: .LONG 15 ; 0000000F 0004E ;TPA$TARGET U.122: .WORD <<U.121-U.122>-2> ; 0000* 00052 ;TPA$TYPE U.126: .WORD 28935 ; 7107 00054 ;TPA$ADDR U.127: .LONG <<U.49-U.127>-4> ; 00000000* 00056 ;TPA$MASK U.128: .LONG 17 ; 00000011 0005A ;TPA$TARGET U.130: .WORD <<U.129-U.130>-2> ; 0000* 0005E ;TPA$TYPE U.134: .WORD 28936 ; 7108 00060 ;TPA$ADDR U.135: .LONG <<U.49-U.135>-4> ; 00000000* 00062 ;TPA$MASK U.136: .LONG 10 ; 0000000A 00066 ;TPA$TARGET U.137: .WORD <<U.75-U.137>-2> ; 0000* 0006A ;TPA$TYPE U.141: .WORD 28937 ; 7109 0006C ;TPA$ADDR U.142: .LONG <<U.49-U.142>-4> ; 00000000* 0006E ;TPA$MASK U.143: .LONG 16 ; 00000010 00072 ;TPA$TARGET U.144: .WORD <<U.75-U.144>-2> ; 0000* 00076 ;TPA$TYPE U.148: .WORD 28938 ; 710A 00078 ;TPA$ADDR U.149: .LONG <<U.49-U.149>-4> ; 00000000* 0007A ;TPA$MASK U.150: .LONG 2 ; 00000002 0007E ;TPA$TARGET U.151: .WORD <<U.75-U.151>-2> ; 0000* 00082 ;TPA$TYPE U.155: .WORD 28939 ; 710B 00084 ;TPA$ADDR U.156: .LONG <<U.49-U.156>-4> ; 00000000* 00086 ;TPA$MASK U.157: .LONG 4 ; 00000004 0008A ;TPA$TARGET U.159: .WORD <<U.158-U.159>-2> ; 0000* 0008E ;TPA$TYPE U.163: .WORD 28940 ; 710C 00090 ;TPA$ADDR U.164: .LONG <<U.49-U.164>-4> ; 00000000* 00092 ;TPA$MASK U.165: .LONG 14 ; 0000000E 00096 ;TPA$TARGET U.166: .WORD <<U.121-U.166>-2> ; 0000* 0009A ;TPA$TYPE U.170: .WORD 28941 ; 710D 0009C ;TPA$ADDR U.171: .LONG <<U.49-U.171>-4> ; 00000000* 0009E ;TPA$MASK U.172: .LONG 5 ; 00000005 000A2 ;TPA$TARGET U.174: .WORD <<U.173-U.174>-2> ; 0000* 000A6 ;TPA$TYPE U.178: .WORD 28942 ; 710E 000A8 ;TPA$ADDR U.179: .LONG <<U.49-U.179>-4> ; 00000000* 000AA ;TPA$MASK U.180: .LONG 6 ; 00000006 000AE ;TPA$TARGET U.182: .WORD <<U.181-U.182>-2> ; 0000* 000B2 ;TPA$TYPE U.186: .WORD 28943 ; 710F 000B4 ;TPA$ADDR U.187: .LONG <<U.49-U.187>-4> ; 00000000* 000B6 ;TPA$MASK U.188: .LONG 8 ; 00000008 000BA ;TPA$TARGET U.189: .WORD <<U.75-U.189>-2> ; 0000* 000BE ;TPA$TYPE U.193: .WORD 28944 ; 7110 000C0 ;TPA$ADDR U.194: .LONG <<U.49-U.194>-4> ; 00000000* 000C2 ;TPA$MASK U.195: .LONG 7 ; 00000007 000C6 ;TPA$TARGET U.197: .WORD <<U.196-U.197>-2> ; 0000* 000CA ;TPA$TYPE U.201: .WORD 28945 ; 7111 000CC ;TPA$ADDR U.202: .LONG <<U.49-U.202>-4> ; 00000000* 000CE ;TPA$MASK U.203: .LONG 9 ; 00000009 000D2 ;TPA$TARGET U.204: .WORD <<U.75-U.204>-2> ; 0000* 000D6 ;TPA$TYPE U.208: .WORD 28946 ; 7112 000D8 ;TPA$ADDR U.209: .LONG <<U.49-U.209>-4> ; 00000000* 000DA ;TPA$MASK U.210: .LONG 18 ; 00000012 000DE ;TPA$TARGET U.212: .WORD <<U.211-U.212>-2> ; 0000* 000E2 ;TPA$TYPE U.213: .WORD 28736 ; 7040 000E4 ;TPA$ADDR U.214: .LONG <<U.49-U.214>-4> ; 00000000* 000E6 ;TPA$MASK U.215: .LONG 18 ; 00000012 000EA ;TPA$TARGET U.216: .WORD <<U.211-U.216>-2> ; 0000* 000EE ;TPA$TYPE U.220: .WORD 28947 ; 7113 000F0 ;TPA$ADDR U.221: .LONG <<U.49-U.221>-4> ; 00000000* 000F2 ;TPA$MASK U.222: .LONG 19 ; 00000013 000F6 ;TPA$TARGET U.224: .WORD <<U.223-U.224>-2> ; 0000* 000FA ;TPA$TYPE U.225: .WORD -27151 ; 95F1 000FC ;TPA$ACTION U.226: .LONG <<U.36-U.226>-4> ; 00000000V 000FE ;TPA$TARGET U.227: .WORD -2 ; FFFE 00102 ;CONN_STATE U.83: .BLKB 0 ; 00104 ;TPA$TYPE U.229: .WORD 4599 ; 11F7 00104 ;TPA$TARGET U.230: .WORD <<U.75-U.230>-2> ; 0000* 00106 ;TPA$TYPE U.231: .WORD 5622 ; 15F6 00108 ;TPA$TARGET U.233: .WORD <<U.232-U.233>-2> ; 0000* 0010A ;HELP_STATE U.113: .BLKB 0 ; 0010C ;TPA$TYPE U.234: .WORD -28179 ; 91ED 0010C ;TPA$ACTION U.235: .LONG <<U.12-U.235>-4> ; 00000000V 0010E ;TPA$TARGET U.236: .WORD <<U.113-U.236>-2> ; 0000* 00112 ;TPA$TYPE U.237: .WORD 5622 ; 15F6 00114 ;TPA$TARGET U.238: .WORD <<U.75-U.238>-2> ; 0000* 00116 ;GET_STATE U.105: .BLKB 0 ; 00118 ;TPA$TYPE U.239: .WORD -28179 ; 91ED 00118 ;TPA$ACTION U.240: .LONG <<U.12-U.240>-4> ; 00000000V 0011A ;TPA$TARGET U.241: .WORD <<U.105-U.241>-2> ; 0000* 0011E ;TPA$TYPE U.242: .WORD -26634 ; 97F6 00120 ;TPA$FLAGS2 U.243: .BYTE 1 ; 01 00122 ;TPA$PARAM U.244: .ADDRESS FILE_DESC ; 00000000G 00123 ;TPA$ACTION U.245: .LONG <<U.14-U.245>-4> ; 00000000V 00127 ;TPA$TARGET U.246: .WORD <<U.75-U.246>-2> ; 0000* 0012B ;REC_STATE U.158: .BLKB 0 ; 0012D ;TPA$TYPE U.247: .WORD -28179 ; 91ED 0012D ;TPA$ACTION U.248: .LONG <<U.12-U.248>-4> ; 00000000V 0012F ;TPA$TARGET U.250: .WORD <<U.249-U.250>-2> ; 0000* 00133 ;TPA$TYPE U.251: .WORD 5622 ; 15F6 00135 ;TPA$TARGET U.252: .WORD <<U.75-U.252>-2> ; 0000* 00137 ;REC1_STATE U.249: .BLKB 0 ; 00139 ;TPA$TYPE U.253: .WORD -28179 ; 91ED 00139 ;TPA$ACTION U.254: .LONG <<U.12-U.254>-4> ; 00000000V 0013B ;TPA$TARGET U.255: .WORD <<U.249-U.255>-2> ; 0000* 0013F ;TPA$TYPE U.256: .WORD -27146 ; 95F6 00141 ;TPA$ACTION U.257: .LONG <<U.15-U.257>-4> ; 00000000V 00143 ;TPA$TARGET U.258: .WORD <<U.75-U.258>-2> ; 0000* 00147 ;REM_STATE U.121: .BLKB 0 ; 00149 ;TPA$TYPE U.262: .WORD 28948 ; 7114 00149 ;TPA$ADDR U.263: .LONG <<U.51-U.263>-4> ; 00000000* 0014B ;TPA$MASK U.264: .LONG 11 ; 0000000B 0014F ;TPA$TARGET U.266: .WORD <<U.265-U.266>-2> ; 0000* 00153 ;TPA$TYPE U.270: .WORD 28949 ; 7115 00155 ;TPA$ADDR U.271: .LONG <<U.51-U.271>-4> ; 00000000* 00157 ;TPA$MASK U.272: .LONG 9 ; 00000009 0015B ;TPA$TARGET U.274: .WORD <<U.273-U.274>-2> ; 0000* 0015F ;TPA$TYPE U.278: .WORD 28950 ; 7116 00161 ;TPA$ADDR U.279: .LONG <<U.51-U.279>-4> ; 00000000* 00163 ;TPA$MASK U.280: .LONG 4 ; 00000004 00167 ;TPA$TARGET U.281: .WORD <<U.265-U.281>-2> ; 0000* 0016B ;TPA$TYPE U.285: .WORD 28951 ; 7117 0016D ;TPA$ADDR U.286: .LONG <<U.51-U.286>-4> ; 00000000* 0016F ;TPA$MASK U.287: .LONG 2 ; 00000002 00173 ;TPA$TARGET U.288: .WORD <<U.273-U.288>-2> ; 0000* 00177 ;TPA$TYPE U.292: .WORD 28952 ; 7118 00179 ;TPA$ADDR U.293: .LONG <<U.51-U.293>-4> ; 00000000* 0017B ;TPA$MASK U.294: .LONG 3 ; 00000003 0017F ;TPA$TARGET U.295: .WORD <<U.273-U.295>-2> ; 0000* 00183 ;TPA$TYPE U.299: .WORD 28953 ; 7119 00185 ;TPA$ADDR U.300: .LONG <<U.51-U.300>-4> ; 00000000* 00187 ;TPA$MASK U.301: .LONG 1 ; 00000001 0018B ;TPA$TARGET U.302: .WORD <<U.75-U.302>-2> ; 0000* 0018F ;TPA$TYPE U.306: .WORD 28954 ; 711A 00191 ;TPA$ADDR U.307: .LONG <<U.51-U.307>-4> ; 00000000* 00193 ;TPA$MASK U.308: .LONG 6 ; 00000006 00197 ;TPA$TARGET U.309: .WORD <<U.273-U.309>-2> ; 0000* 0019B ;TPA$TYPE U.313: .WORD 28955 ; 711B 0019D ;TPA$ADDR U.314: .LONG <<U.51-U.314>-4> ; 00000000* 0019F ;TPA$MASK U.315: .LONG 15 ; 0000000F 001A3 ;TPA$TARGET U.316: .WORD <<U.265-U.316>-2> ; 0000* 001A7 ;TPA$TYPE U.320: .WORD 28956 ; 711C 001A9 ;TPA$ADDR U.321: .LONG <<U.51-U.321>-4> ; 00000000* 001AB ;TPA$MASK U.322: .LONG 8 ; 00000008 001AF ;TPA$TARGET U.323: .WORD <<U.265-U.323>-2> ; 0000* 001B3 ;TPA$TYPE U.327: .WORD 28957 ; 711D 001B5 ;TPA$ADDR U.328: .LONG <<U.51-U.328>-4> ; 00000000* 001B7 ;TPA$MASK U.329: .LONG 7 ; 00000007 001BB ;TPA$TARGET U.330: .WORD <<U.75-U.330>-2> ; 0000* 001BF ;TPA$TYPE U.334: .WORD 28958 ; 711E 001C1 ;TPA$ADDR U.335: .LONG <<U.51-U.335>-4> ; 00000000* 001C3 ;TPA$MASK U.336: .LONG 10 ; 0000000A 001C7 ;TPA$TARGET U.337: .WORD <<U.265-U.337>-2> ; 0000* 001CB ;TPA$TYPE U.341: .WORD 28959 ; 711F 001CD ;TPA$ADDR U.342: .LONG <<U.51-U.342>-4> ; 00000000* 001CF ;TPA$MASK U.343: .LONG 13 ; 0000000D 001D3 ;TPA$TARGET U.344: .WORD <<U.265-U.344>-2> ; 0000* 001D7 ;TPA$TYPE U.348: .WORD 28960 ; 7120 001D9 ;TPA$ADDR U.349: .LONG <<U.51-U.349>-4> ; 00000000* 001DB ;TPA$MASK U.350: .LONG 3 ; 00000003 001DF ;TPA$TARGET U.351: .WORD <<U.273-U.351>-2> ; 0000* 001E3 ;TPA$TYPE U.355: .WORD 28961 ; 7121 001E5 ;TPA$ADDR U.356: .LONG <<U.51-U.356>-4> ; 00000000* 001E7 ;TPA$MASK U.357: .LONG 14 ; 0000000E 001EB ;TPA$TARGET U.358: .WORD <<U.75-U.358>-2> ; 0000* 001EF ;TPA$TYPE U.362: .WORD 28962 ; 7122 001F1 ;TPA$ADDR U.363: .LONG <<U.51-U.363>-4> ; 00000000* 001F3 ;TPA$MASK U.364: .LONG 5 ; 00000005 001F7 ;TPA$TARGET U.365: .WORD <<U.265-U.365>-2> ; 0000* 001FB ;TPA$TYPE U.369: .WORD 28963 ; 7123 001FD ;TPA$ADDR U.370: .LONG <<U.51-U.370>-4> ; 00000000* 001FF ;TPA$MASK U.371: .LONG 12 ; 0000000C 00203 ;TPA$TARGET U.372: .WORD <<U.273-U.372>-2> ; 0000* 00207 ;TPA$TYPE U.373: .WORD -27151 ; 95F1 00209 ;TPA$ACTION U.374: .LONG <<U.36-U.374>-4> ; 00000000V 0020B ;TPA$TARGET U.375: .WORD -2 ; FFFE 0020F ;REM1_STATE U.273: .BLKB 0 ; 00211 ;TPA$TYPE U.377: .WORD -28179 ; 91ED 00211 ;TPA$ACTION U.378: .LONG <<U.12-U.378>-4> ; 00000000V 00213 ;TPA$TARGET U.379: .WORD <<U.265-U.379>-2> ; 0000* 00217 ;TPA$TYPE U.380: .WORD 5622 ; 15F6 00219 ;TPA$TARGET U.381: .WORD <<U.75-U.381>-2> ; 0000* 0021B ;REM2_STATE U.265: .BLKB 0 ; 0021D ;TPA$TYPE U.382: .WORD -28179 ; 91ED 0021D ;TPA$ACTION U.383: .LONG <<U.12-U.383>-4> ; 00000000V 0021F ;TPA$TARGET U.384: .WORD <<U.265-U.384>-2> ; 0000* 00223 ;TPA$TYPE U.385: .WORD -27146 ; 95F6 00225 ;TPA$ACTION U.386: .LONG <<U.16-U.386>-4> ; 00000000V 00227 ;TPA$TARGET U.387: .WORD <<U.75-U.387>-2> ; 0000* 0022B ;SET_STATE U.173: .BLKB 0 ; 0022D ;TPA$TYPE U.391: .WORD 4388 ; 1124 0022D ;TPA$TARGET U.393: .WORD <<U.392-U.393>-2> ; 0000* 0022F ;TPA$TYPE U.397: .WORD 4389 ; 1125 00231 ;TPA$TARGET U.399: .WORD <<U.398-U.399>-2> ; 0000* 00233 ;TPA$TYPE U.403: .WORD 4390 ; 1126 00235 ;TPA$TARGET U.405: .WORD <<U.404-U.405>-2> ; 0000* 00237 ;TPA$TYPE U.409: .WORD 4391 ; 1127 00239 ;TPA$TARGET U.411: .WORD <<U.410-U.411>-2> ; 0000* 0023B ;TPA$TYPE U.415: .WORD 4392 ; 1128 0023D ;TPA$TARGET U.417: .WORD <<U.416-U.417>-2> ; 0000* 0023F ;TPA$TYPE U.421: .WORD 4393 ; 1129 00241 ;TPA$TARGET U.423: .WORD <<U.422-U.423>-2> ; 0000* 00243 ;TPA$TYPE U.427: .WORD 4394 ; 112A 00245 ;TPA$TARGET U.429: .WORD <<U.428-U.429>-2> ; 0000* 00247 ;TPA$TYPE U.433: .WORD 4395 ; 112B 00249 ;TPA$TARGET U.435: .WORD <<U.434-U.435>-2> ; 0000* 0024B ;TPA$TYPE U.439: .WORD 4396 ; 112C 0024D ;TPA$TARGET U.440: .WORD <<U.232-U.440>-2> ; 0000* 0024F ;TPA$TYPE U.444: .WORD 4397 ; 112D 00251 ;TPA$TARGET U.446: .WORD <<U.445-U.446>-2> ; 0000* 00253 ;TPA$TYPE U.450: .WORD 4398 ; 112E 00255 ;TPA$TARGET U.452: .WORD <<U.451-U.452>-2> ; 0000* 00257 ;TPA$TYPE U.456: .WORD 4399 ; 112F 00259 ;TPA$TARGET U.458: .WORD <<U.457-U.458>-2> ; 0000* 0025B ;TPA$TYPE U.462: .WORD 4400 ; 1130 0025D ;TPA$TARGET U.464: .WORD <<U.463-U.464>-2> ; 0000* 0025F ;TPA$TYPE U.468: .WORD 4401 ; 1131 00261 ;TPA$TARGET U.470: .WORD <<U.469-U.470>-2> ; 0000* 00263 ;TPA$TYPE U.474: .WORD 4402 ; 1132 00265 ;TPA$TARGET U.476: .WORD <<U.475-U.476>-2> ; 0000* 00267 ;TPA$TYPE U.480: .WORD 4403 ; 1133 00269 ;TPA$TARGET U.482: .WORD <<U.481-U.482>-2> ; 0000* 0026B ;TPA$TYPE U.486: .WORD 4404 ; 1134 0026D ;TPA$TARGET U.488: .WORD <<U.487-U.488>-2> ; 0000* 0026F ;TPA$TYPE U.492: .WORD 4405 ; 1135 00271 ;TPA$TARGET U.494: .WORD <<U.493-U.494>-2> ; 0000* 00273 ;TPA$TYPE U.498: .WORD 4406 ; 1136 00275 ;TPA$TARGET U.500: .WORD <<U.499-U.500>-2> ; 0000* 00277 ;TPA$TYPE U.501: .WORD -27151 ; 95F1 00279 ;TPA$ACTION U.502: .LONG <<U.36-U.502>-4> ; 00000000V 0027B ;TPA$TARGET U.503: .WORD -2 ; FFFE 0027F ;SET_ABT_STATE U.434: .BLKB 0 ; 00281 ;TPA$TYPE U.508: .WORD -27849 ; 9337 00281 ;TPA$FLAGS2 U.509: .BYTE 1 ; 01 00283 ;TPA$PARAM U.510: .LONG 1 ; 00000001 00284 ;TPA$ACTION U.511: .LONG <<U.26-U.511>-4> ; 00000000V 00288 ;TPA$TARGET U.512: .WORD <<U.75-U.512>-2> ; 0000* 0028C ;TPA$TYPE U.516: .WORD -27848 ; 9338 0028E ;TPA$FLAGS2 U.517: .BYTE 1 ; 01 00290 ;TPA$PARAM U.518: .LONG 0 ; 00000000 00291 ;TPA$ACTION U.519: .LONG <<U.26-U.519>-4> ; 00000000V 00295 ;TPA$TARGET U.520: .WORD <<U.75-U.520>-2> ; 0000* 00299 ;TPA$TYPE U.521: .WORD -27151 ; 95F1 0029B ;TPA$ACTION U.522: .LONG <<U.36-U.522>-4> ; 00000000V 0029D ;TPA$TARGET U.523: .WORD -2 ; FFFE 002A1 ;SET_CHK_STATE U.392: .BLKB 0 ; 002A3 ;TPA$TYPE U.528: .WORD -27847 ; 9339 002A3 ;TPA$FLAGS2 U.529: .BYTE 1 ; 01 002A5 ;TPA$PARAM U.530: .LONG 49 ; 00000031 002A6 ;TPA$ACTION U.531: .LONG <<U.25-U.531>-4> ; 00000000V 002AA ;TPA$TARGET U.532: .WORD <<U.75-U.532>-2> ; 0000* 002AE ;TPA$TYPE U.536: .WORD -27846 ; 933A 002B0 ;TPA$FLAGS2 U.537: .BYTE 1 ; 01 002B2 ;TPA$PARAM U.538: .LONG 50 ; 00000032 002B3 ;TPA$ACTION U.539: .LONG <<U.25-U.539>-4> ; 00000000V 002B7 ;TPA$TARGET U.540: .WORD <<U.75-U.540>-2> ; 0000* 002BB ;TPA$TYPE U.544: .WORD -27845 ; 933B 002BD ;TPA$FLAGS2 U.545: .BYTE 1 ; 01 002BF ;TPA$PARAM U.546: .LONG 51 ; 00000033 002C0 ;TPA$ACTION U.547: .LONG <<U.25-U.547>-4> ; 00000000V 002C4 ;TPA$TARGET U.548: .WORD <<U.75-U.548>-2> ; 0000* 002C8 ;TPA$TYPE U.552: .WORD -27844 ; 933C 002CA ;TPA$FLAGS2 U.553: .BYTE 1 ; 01 002CC ;TPA$PARAM U.554: .LONG 49 ; 00000031 002CD ;TPA$ACTION U.555: .LONG <<U.25-U.555>-4> ; 00000000V 002D1 ;TPA$TARGET U.556: .WORD <<U.75-U.556>-2> ; 0000* 002D5 ;TPA$TYPE U.560: .WORD -27843 ; 933D 002D7 ;TPA$FLAGS2 U.561: .BYTE 1 ; 01 002D9 ;TPA$PARAM U.562: .LONG 51 ; 00000033 002DA ;TPA$ACTION U.563: .LONG <<U.25-U.563>-4> ; 00000000V 002DE ;TPA$TARGET U.564: .WORD <<U.75-U.564>-2> ; 0000* 002E2 ;TPA$TYPE U.568: .WORD -27842 ; 933E 002E4 ;TPA$FLAGS2 U.569: .BYTE 1 ; 01 002E6 ;TPA$PARAM U.570: .LONG 50 ; 00000032 002E7 ;TPA$ACTION U.571: .LONG <<U.25-U.571>-4> ; 00000000V 002EB ;TPA$TARGET U.572: .WORD <<U.75-U.572>-2> ; 0000* 002EF ;TPA$TYPE U.573: .WORD -27151 ; 95F1 002F1 ;TPA$ACTION U.574: .LONG <<U.36-U.574>-4> ; 00000000V 002F3 ;TPA$TARGET U.575: .WORD -2 ; FFFE 002F7 ;SET_DEB_STATE U.398: .BLKB 0 ; 002F9 ;TPA$TYPE U.580: .WORD -27841 ; 933F 002F9 ;TPA$FLAGS2 U.581: .BYTE 1 ; 01 002FB ;TPA$PARAM U.582: .LONG 0 ; 00000000 002FC ;TPA$ACTION U.583: .LONG <<U.18-U.583>-4> ; 00000000V 00300 ;TPA$TARGET U.584: .WORD <<U.75-U.584>-2> ; 0000* 00304 ;TPA$TYPE U.588: .WORD -27840 ; 9340 00306 ;TPA$FLAGS2 U.589: .BYTE 1 ; 01 00308 ;TPA$PARAM U.590: .LONG 1 ; 00000001 00309 ;TPA$ACTION U.591: .LONG <<U.18-U.591>-4> ; 00000000V 0030D ;TPA$TARGET U.592: .WORD <<U.75-U.592>-2> ; 0000* 00311 ;TPA$TYPE U.593: .WORD -27151 ; 95F1 00313 ;TPA$ACTION U.594: .LONG <<U.36-U.594>-4> ; 00000000V 00315 ;TPA$TARGET U.595: .WORD -2 ; FFFE 00319 ;SET_IBM_STATE U.428: .BLKB 0 ; 0031B ;TPA$TYPE U.600: .WORD -27839 ; 9341 0031B ;TPA$FLAGS2 U.601: .BYTE 1 ; 01 0031D ;TPA$PARAM U.602: .LONG 0 ; 00000000 0031E ;TPA$ACTION U.603: .LONG <<U.27-U.603>-4> ; 00000000V 00322 ;TPA$TARGET U.604: .WORD <<U.75-U.604>-2> ; 0000* 00326 ;TPA$TYPE U.608: .WORD -27838 ; 9342 00328 ;TPA$FLAGS2 U.609: .BYTE 1 ; 01 0032A ;TPA$PARAM U.610: .LONG 1 ; 00000001 0032B ;TPA$ACTION U.611: .LONG <<U.27-U.611>-4> ; 00000000V 0032F ;TPA$TARGET U.612: .WORD <<U.75-U.612>-2> ; 0000* 00333 ;TPA$TYPE U.613: .WORD -27151 ; 95F1 00335 ;TPA$ACTION U.614: .LONG <<U.36-U.614>-4> ; 00000000V 00337 ;TPA$TARGET U.615: .WORD -2 ; FFFE 0033B ;SET_HAN_STATE U.422: .BLKB 0 ; 0033D ;TPA$TYPE U.620: .WORD 28995 ; 7143 0033D ;TPA$ADDR U.621: .LONG <<IBM_CHAR-U.621>-4> ; 00000000* 0033F ;TPA$MASK U.622: .LONG -1 ; FFFFFFFF 00343 ;TPA$TARGET U.623: .WORD <<U.75-U.623>-2> ; 0000* 00347 ;TPA$TYPE U.624: .WORD 22004 ; 55F4 00349 ;TPA$ADDR U.625: .LONG <<IBM_CHAR-U.625>-4> ; 00000000* 0034B ;TPA$TARGET U.626: .WORD <<U.75-U.626>-2> ; 0000* 0034F ;SET_DEL_STATE U.404: .BLKB 0 ; 00351 ;TPA$TYPE U.628: .WORD 22003 ; 55F3 00351 ;TPA$ADDR U.629: .LONG <<DELAY-U.629>-4> ; 00000000* 00353 ;TPA$TARGET U.630: .WORD <<U.75-U.630>-2> ; 0000* 00357 ;SET_BLK_STATE U.631: .BLKB 0 ; 00359 ;TPA$TYPE U.632: .WORD -10765 ; D5F3 00359 ;TPA$ACTION U.633: .LONG <<U.17-U.633>-4> ; 00000000V 0035B ;TPA$ADDR U.634: .LONG <<FILE_BLOCKSIZE-U.634>-4> ; 00000000* 0035F ;TPA$TARGET U.635: .WORD <<U.75-U.635>-2> ; 0000* 00363 ;SET_ESC_STATE U.410: .BLKB 0 ; 00365 ;TPA$TYPE U.636: .WORD 22004 ; 55F4 00365 ;TPA$ADDR U.637: .LONG <<ESCAPE_CHR-U.637>-4> ; 00000000* 00367 ;TPA$TARGET U.638: .WORD <<U.75-U.638>-2> ; 0000* 0036B ;SET_FIL_STATE U.416: .BLKB 0 ; 0036D ;TPA$TYPE U.642: .WORD 4420 ; 1144 0036D ;TPA$TARGET U.644: .WORD <<U.643-U.644>-2> ; 0000* 0036F ;TPA$TYPE U.648: .WORD 4421 ; 1145 00371 ;TPA$TARGET U.650: .WORD <<U.649-U.650>-2> ; 0000* 00373 ;TPA$TYPE U.654: .WORD 4422 ; 1146 00375 ;TPA$TARGET U.655: .WORD <<U.631-U.655>-2> ; 0000* 00377 ;TPA$TYPE U.656: .WORD -27151 ; 95F1 00379 ;TPA$ACTION U.657: .LONG <<U.36-U.657>-4> ; 00000000V 0037B ;TPA$TARGET U.658: .WORD -2 ; FFFE 0037F ;SET_FNM_STATE U.643: .BLKB 0 ; 00381 ;TPA$TYPE U.663: .WORD -27833 ; 9347 00381 ;TPA$FLAGS2 U.664: .BYTE 1 ; 01 00383 ;TPA$PARAM U.665: .LONG 2 ; 00000002 00384 ;TPA$ACTION U.666: .LONG <<U.22-U.666>-4> ; 00000000V 00388 ;TPA$TARGET U.667: .WORD <<U.75-U.667>-2> ; 0000* 0038C ;TPA$TYPE U.671: .WORD -27832 ; 9348 0038E ;TPA$FLAGS2 U.672: .BYTE 1 ; 01 00390 ;TPA$PARAM U.673: .LONG 1 ; 00000001 00391 ;TPA$ACTION U.674: .LONG <<U.22-U.674>-4> ; 00000000V 00395 ;TPA$TARGET U.675: .WORD <<U.75-U.675>-2> ; 0000* 00399 ;TPA$TYPE U.679: .WORD -27831 ; 9349 0039B ;TPA$FLAGS2 U.680: .BYTE 1 ; 01 0039D ;TPA$PARAM U.681: .LONG 4 ; 00000004 0039E ;TPA$ACTION U.682: .LONG <<U.22-U.682>-4> ; 00000000V 003A2 ;TPA$TARGET U.683: .WORD <<U.75-U.683>-2> ; 0000* 003A6 ;TPA$TYPE U.684: .WORD -27151 ; 95F1 003A8 ;TPA$ACTION U.685: .LONG <<U.36-U.685>-4> ; 00000000V 003AA ;TPA$TARGET U.686: .WORD -2 ; FFFE 003AE ;SET_FTP_STATE U.649: .BLKB 0 ; 003B0 ;TPA$TYPE U.691: .WORD -27830 ; 934A 003B0 ;TPA$FLAGS2 U.692: .BYTE 1 ; 01 003B2 ;TPA$PARAM U.693: .LONG 1 ; 00000001 003B3 ;TPA$ACTION U.694: .LONG <<U.21-U.694>-4> ; 00000000V 003B7 ;TPA$TARGET U.695: .WORD <<U.75-U.695>-2> ; 0000* 003BB ;TPA$TYPE U.699: .WORD -27829 ; 934B 003BD ;TPA$FLAGS2 U.700: .BYTE 1 ; 01 003BF ;TPA$PARAM U.701: .LONG 2 ; 00000002 003C0 ;TPA$ACTION U.702: .LONG <<U.21-U.702>-4> ; 00000000V 003C4 ;TPA$TARGET U.703: .WORD <<U.75-U.703>-2> ; 0000* 003C8 ;TPA$TYPE U.707: .WORD -27828 ; 934C 003CA ;TPA$FLAGS2 U.708: .BYTE 1 ; 01 003CC ;TPA$PARAM U.709: .LONG 3 ; 00000003 003CD ;TPA$ACTION U.710: .LONG <<U.21-U.710>-4> ; 00000000V 003D1 ;TPA$TARGET U.711: .WORD <<U.75-U.711>-2> ; 0000* 003D5 ;TPA$TYPE U.715: .WORD -27827 ; 934D 003D7 ;TPA$FLAGS2 U.716: .BYTE 1 ; 01 003D9 ;TPA$PARAM U.717: .LONG 4 ; 00000004 003DA ;TPA$ACTION U.718: .LONG <<U.21-U.718>-4> ; 00000000V 003DE ;TPA$TARGET U.719: .WORD <<U.75-U.719>-2> ; 0000* 003E2 ;TPA$TYPE U.720: .WORD -27151 ; 95F1 003E4 ;TPA$ACTION U.721: .LONG <<U.36-U.721>-4> ; 00000000V 003E6 ;TPA$TARGET U.722: .WORD -2 ; FFFE 003EA ;SET_LIN_STATE U.232: .BLKB 0 ; 003EC ;TPA$TYPE U.724: .WORD -28179 ; 91ED 003EC ;TPA$ACTION U.725: .LONG <<U.12-U.725>-4> ; 00000000V 003EE ;TPA$TARGET U.726: .WORD <<U.232-U.726>-2> ; 0000* 003F2 ;TPA$TYPE U.727: .WORD -27146 ; 95F6 003F4 ;TPA$ACTION U.728: .LONG <<U.13-U.728>-4> ; 00000000V 003F6 ;TPA$TARGET U.729: .WORD <<U.75-U.729>-2> ; 0000* 003FA ;SET_ECH_STATE U.445: .BLKB 0 ; 003FC ;TPA$TYPE U.733: .WORD -27826 ; 934E 003FC ;TPA$FLAGS2 U.734: .BYTE 1 ; 01 003FE ;TPA$PARAM U.735: .LONG 0 ; 00000000 003FF ;TPA$ACTION U.736: .LONG <<U.23-U.736>-4> ; 00000000V 00403 ;TPA$TARGET U.737: .WORD <<U.75-U.737>-2> ; 0000* 00407 ;TPA$TYPE U.741: .WORD -27825 ; 934F 00409 ;TPA$FLAGS2 U.742: .BYTE 1 ; 01 0040B ;TPA$PARAM U.743: .LONG 1 ; 00000001 0040C ;TPA$ACTION U.744: .LONG <<U.23-U.744>-4> ; 00000000V 00410 ;TPA$TARGET U.745: .WORD <<U.75-U.745>-2> ; 0000* 00414 ;TPA$TYPE U.746: .WORD -27151 ; 95F1 00416 ;TPA$ACTION U.747: .LONG <<U.36-U.747>-4> ; 00000000V 00418 ;TPA$TARGET U.748: .WORD -2 ; FFFE 0041C ;SET_MSG_STATE U.451: .BLKB 0 ; 0041E ;TPA$TYPE U.753: .WORD 4432 ; 1150 0041E ;TPA$TARGET U.755: .WORD <<U.754-U.755>-2> ; 0000* 00420 ;TPA$TYPE U.759: .WORD 4433 ; 1151 00422 ;TPA$TARGET U.761: .WORD <<U.760-U.761>-2> ; 0000* 00424 ;TPA$TYPE U.762: .WORD -27151 ; 95F1 00426 ;TPA$ACTION U.763: .LONG <<U.36-U.763>-4> ; 00000000V 00428 ;TPA$TARGET U.764: .WORD -2 ; FFFE 0042C ;SET_MSG_FIL_STATE U.754: .BLKB 0 ; 0042E ;TPA$TYPE U.769: .WORD -27822 ; 9352 0042E ;TPA$FLAGS2 U.770: .BYTE 1 ; 01 00430 ;TPA$PARAM U.771: .LONG 0 ; 00000000 00431 ;TPA$ACTION U.772: .LONG <<U.28-U.772>-4> ; 00000000V 00435 ;TPA$TARGET U.773: .WORD <<U.75-U.773>-2> ; 0000* 00439 ;TPA$TYPE U.777: .WORD -27821 ; 9353 0043B ;TPA$FLAGS2 U.778: .BYTE 1 ; 01 0043D ;TPA$PARAM U.779: .LONG 1 ; 00000001 0043E ;TPA$ACTION U.780: .LONG <<U.28-U.780>-4> ; 00000000V 00442 ;TPA$TARGET U.781: .WORD <<U.75-U.781>-2> ; 0000* 00446 ;TPA$TYPE U.782: .WORD -27151 ; 95F1 00448 ;TPA$ACTION U.783: .LONG <<U.36-U.783>-4> ; 00000000V 0044A ;TPA$TARGET U.784: .WORD -2 ; FFFE 0044E ;SET_MSG_PKT_STATE U.760: .BLKB 0 ; 00450 ;TPA$TYPE U.789: .WORD -27820 ; 9354 00450 ;TPA$FLAGS2 U.790: .BYTE 1 ; 01 00452 ;TPA$PARAM U.791: .LONG 0 ; 00000000 00453 ;TPA$ACTION U.792: .LONG <<U.29-U.792>-4> ; 00000000V 00457 ;TPA$TARGET U.793: .WORD <<U.75-U.793>-2> ; 0000* 0045B ;TPA$TYPE U.797: .WORD -27819 ; 9355 0045D ;TPA$FLAGS2 U.798: .BYTE 1 ; 01 0045F ;TPA$PARAM U.799: .LONG 1 ; 00000001 00460 ;TPA$ACTION U.800: .LONG <<U.29-U.800>-4> ; 00000000V 00464 ;TPA$TARGET U.801: .WORD <<U.75-U.801>-2> ; 0000* 00468 ;TPA$TYPE U.802: .WORD -27151 ; 95F1 0046A ;TPA$ACTION U.803: .LONG <<U.36-U.803>-4> ; 00000000V 0046C ;TPA$TARGET U.804: .WORD -2 ; FFFE 00470 ;SET_PMT_STATE U.463: .BLKB 0 ; 00472 ;TPA$TYPE U.806: .WORD -28179 ; 91ED 00472 ;TPA$ACTION U.807: .LONG <<U.12-U.807>-4> ; 00000000V 00474 ;TPA$TARGET U.808: .WORD <<U.463-U.808>-2> ; 0000* 00478 ;TPA$TYPE U.809: .WORD -26634 ; 97F6 0047A ;TPA$FLAGS2 U.810: .BYTE 1 ; 01 0047C ;TPA$PARAM U.811: .ADDRESS U.58 ; 00000000' 0047D ;TPA$ACTION U.812: .LONG <<U.14-U.812>-4> ; 00000000V 00481 ;TPA$TARGET U.813: .WORD <<U.75-U.813>-2> ; 0000* 00485 ;SET_RPT_STATE U.475: .BLKB 0 ; 00487 ;TPA$TYPE U.814: .WORD -10764 ; D5F4 00487 ;TPA$ACTION U.815: .LONG <<U.34-U.815>-4> ; 00000000V 00489 ;TPA$ADDR U.816: .LONG <<SET_REPT_CHR-U.816>-4> ; 00000000* 0048D ;TPA$TARGET U.817: .WORD <<U.75-U.817>-2> ; 0000* 00491 ;SET_RTY_STATE U.481: .BLKB 0 ; 00493 ;TPA$TYPE U.821: .WORD 4438 ; 1156 00493 ;TPA$TARGET U.823: .WORD <<U.822-U.823>-2> ; 0000* 00495 ;TPA$TYPE U.827: .WORD 4439 ; 1157 00497 ;TPA$TARGET U.829: .WORD <<U.828-U.829>-2> ; 0000* 00499 ;TPA$TYPE U.830: .WORD -27151 ; 95F1 0049B ;TPA$ACTION U.831: .LONG <<U.36-U.831>-4> ; 00000000V 0049D ;TPA$TARGET U.832: .WORD -2 ; FFFE 004A1 ;SET_RTY_INI_STATE U.822: .BLKB 0 ; 004A3 ;TPA$TYPE U.834: .WORD 22003 ; 55F3 004A3 ;TPA$ADDR U.835: .LONG <<SI_RETRIES-U.835>-4> ; 00000000* 004A5 ;TPA$TARGET U.836: .WORD <<U.75-U.836>-2> ; 0000* 004A9 ;SET_RTY_PKT_STATE U.828: .BLKB 0 ; 004AB ;TPA$TYPE U.837: .WORD 22003 ; 55F3 004AB ;TPA$ADDR U.838: .LONG <<PKT_RETRIES-U.838>-4> ; 00000000* 004AD ;TPA$TARGET U.839: .WORD <<U.75-U.839>-2> ; 0000* 004B1 ;SET_PAR_STATE U.457: .BLKB 0 ; 004B3 ;TPA$TYPE U.843: .WORD -27816 ; 9358 004B3 ;TPA$FLAGS2 U.844: .BYTE 1 ; 01 004B5 ;TPA$PARAM U.845: .LONG 2 ; 00000002 004B6 ;TPA$ACTION U.846: .LONG <<U.24-U.846>-4> ; 00000000V 004BA ;TPA$TARGET U.847: .WORD <<U.75-U.847>-2> ; 0000* 004BE ;TPA$TYPE U.851: .WORD -27815 ; 9359 004C0 ;TPA$FLAGS2 U.852: .BYTE 1 ; 01 004C2 ;TPA$PARAM U.853: .LONG 1 ; 00000001 004C3 ;TPA$ACTION U.854: .LONG <<U.24-U.854>-4> ; 00000000V 004C7 ;TPA$TARGET U.855: .WORD <<U.75-U.855>-2> ; 0000* 004CB ;TPA$TYPE U.859: .WORD -27814 ; 935A 004CD ;TPA$FLAGS2 U.860: .BYTE 1 ; 01 004CF ;TPA$PARAM U.861: .LONG 0 ; 00000000 004D0 ;TPA$ACTION U.862: .LONG <<U.24-U.862>-4> ; 00000000V 004D4 ;TPA$TARGET U.863: .WORD <<U.75-U.863>-2> ; 0000* 004D8 ;TPA$TYPE U.867: .WORD -27813 ; 935B 004DA ;TPA$FLAGS2 U.868: .BYTE 1 ; 01 004DC ;TPA$PARAM U.869: .LONG 3 ; 00000003 004DD ;TPA$ACTION U.870: .LONG <<U.24-U.870>-4> ; 00000000V 004E1 ;TPA$TARGET U.871: .WORD <<U.75-U.871>-2> ; 0000* 004E5 ;TPA$TYPE U.875: .WORD -27812 ; 935C 004E7 ;TPA$FLAGS2 U.876: .BYTE 1 ; 01 004E9 ;TPA$PARAM U.877: .LONG 4 ; 00000004 004EA ;TPA$ACTION U.878: .LONG <<U.24-U.878>-4> ; 00000000V 004EE ;TPA$TARGET U.879: .WORD <<U.75-U.879>-2> ; 0000* 004F2 ;TPA$TYPE U.880: .WORD -27151 ; 95F1 004F4 ;TPA$ACTION U.881: .LONG <<U.36-U.881>-4> ; 00000000V 004F6 ;TPA$TARGET U.882: .WORD -2 ; FFFE 004FA ;SET_REC_STATE U.469: .BLKB 0 ; 004FC ;TPA$TYPE U.887: .WORD 4445 ; 115D 004FC ;TPA$TARGET U.889: .WORD <<U.888-U.889>-2> ; 0000* 004FE ;TPA$TYPE U.893: .WORD 4446 ; 115E 00500 ;TPA$TARGET U.895: .WORD <<U.894-U.895>-2> ; 0000* 00502 ;TPA$TYPE U.899: .WORD 4447 ; 115F 00504 ;TPA$TARGET U.901: .WORD <<U.900-U.901>-2> ; 0000* 00506 ;TPA$TYPE U.905: .WORD 4448 ; 1160 00508 ;TPA$TARGET U.907: .WORD <<U.906-U.907>-2> ; 0000* 0050A ;TPA$TYPE U.911: .WORD 4449 ; 1161 0050C ;TPA$TARGET U.913: .WORD <<U.912-U.913>-2> ; 0000* 0050E ;TPA$TYPE U.917: .WORD 4450 ; 1162 00510 ;TPA$TARGET U.919: .WORD <<U.918-U.919>-2> ; 0000* 00512 ;TPA$TYPE U.923: .WORD 4451 ; 1163 00514 ;TPA$TARGET U.925: .WORD <<U.924-U.925>-2> ; 0000* 00516 ;TPA$TYPE U.929: .WORD 4452 ; 1164 00518 ;TPA$TARGET U.931: .WORD <<U.930-U.931>-2> ; 0000* 0051A ;TPA$TYPE U.932: .WORD -27151 ; 95F1 0051C ;TPA$ACTION U.933: .LONG <<U.36-U.933>-4> ; 00000000V 0051E ;TPA$TARGET U.934: .WORD -2 ; FFFE 00522 ;SR_PKT_STATE U.900: .BLKB 0 ; 00524 ;TPA$TYPE U.936: .WORD -10765 ; D5F3 00524 ;TPA$ACTION U.937: .LONG <<U.30-U.937>-4> ; 00000000V 00526 ;TPA$ADDR U.938: .LONG <<RCV_PKT_SIZE-U.938>-4> ; 00000000* 0052A ;TPA$TARGET U.939: .WORD <<U.75-U.939>-2> ; 0000* 0052E ;SR_PAD_STATE U.912: .BLKB 0 ; 00530 ;TPA$TYPE U.940: .WORD -10765 ; D5F3 00530 ;TPA$ACTION U.941: .LONG <<U.31-U.941>-4> ; 00000000V 00532 ;TPA$ADDR U.942: .LONG <<RCV_NPAD-U.942>-4> ; 00000000* 00536 ;TPA$TARGET U.943: .WORD <<U.75-U.943>-2> ; 0000* 0053A ;SR_PDC_STATE U.906: .BLKB 0 ; 0053C ;TPA$TYPE U.944: .WORD -10764 ; D5F4 0053C ;TPA$ACTION U.945: .LONG <<U.32-U.945>-4> ; 00000000V 0053E ;TPA$ADDR U.946: .LONG <<RCV_PADCHAR-U.946>-4> ; 00000000* 00542 ;TPA$TARGET U.947: .WORD <<U.75-U.947>-2> ; 0000* 00546 ;SR_SOH_STATE U.924: .BLKB 0 ; 00548 ;TPA$TYPE U.948: .WORD -10764 ; D5F4 00548 ;TPA$ACTION U.949: .LONG <<U.35-U.949>-4> ; 00000000V 0054A ;TPA$ADDR U.950: .LONG <<RCV_SOH-U.950>-4> ; 00000000* 0054E ;TPA$TARGET U.951: .WORD <<U.75-U.951>-2> ; 0000* 00552 ;SR_TIM_STATE U.930: .BLKB 0 ; 00554 ;TPA$TYPE U.952: .WORD 22003 ; 55F3 00554 ;TPA$ADDR U.953: .LONG <<RCV_TIMEOUT-U.953>-4> ; 00000000* 00556 ;TPA$TARGET U.954: .WORD <<U.75-U.954>-2> ; 0000* 0055A ;SR_EOL_STATE U.894: .BLKB 0 ; 0055C ;TPA$TYPE U.955: .WORD -10764 ; D5F4 0055C ;TPA$ACTION U.956: .LONG <<U.33-U.956>-4> ; 00000000V 0055E ;TPA$ADDR U.957: .LONG <<RCV_EOL-U.957>-4> ; 00000000* 00562 ;TPA$TARGET U.958: .WORD <<U.75-U.958>-2> ; 0000* 00566 ;SR_QUO_STATE U.918: .BLKB 0 ; 00568 ;TPA$TYPE U.959: .WORD -10764 ; D5F4 00568 ;TPA$ACTION U.960: .LONG <<U.34-U.960>-4> ; 00000000V 0056A ;TPA$ADDR U.961: .LONG <<RCV_QUOTE_CHR-U.961>-4> ; 00000000* 0056E ;TPA$TARGET U.962: .WORD <<U.75-U.962>-2> ; 0000* 00572 ;SR_8QU_STATE U.888: .BLKB 0 ; 00574 ;TPA$TYPE U.963: .WORD -10764 ; D5F4 00574 ;TPA$ACTION U.964: .LONG <<U.34-U.964>-4> ; 00000000V 00576 ;TPA$ADDR U.965: .LONG <<RCV_8QUOTE_CHR-U.965>-4> ; 00000000* 0057A ;TPA$TARGET U.966: .WORD <<U.75-U.966>-2> ; 0000* 0057E ;SET_SND_STATE U.487: .BLKB 0 ; 00580 ;TPA$TYPE U.970: .WORD 4453 ; 1165 00580 ;TPA$TARGET U.972: .WORD <<U.971-U.972>-2> ; 0000* 00582 ;TPA$TYPE U.976: .WORD 4454 ; 1166 00584 ;TPA$TARGET U.978: .WORD <<U.977-U.978>-2> ; 0000* 00586 ;TPA$TYPE U.982: .WORD 4455 ; 1167 00588 ;TPA$TARGET U.984: .WORD <<U.983-U.984>-2> ; 0000* 0058A ;TPA$TYPE U.988: .WORD 4456 ; 1168 0058C ;TPA$TARGET U.990: .WORD <<U.989-U.990>-2> ; 0000* 0058E ;TPA$TYPE U.994: .WORD 4457 ; 1169 00590 ;TPA$TARGET U.996: .WORD <<U.995-U.996>-2> ; 0000* 00592 ;TPA$TYPE U.1000: .WORD 4458 ; 116A 00594 ;TPA$TARGET U.1002: .WORD <<U.1001-U.1002>-2> ; 0000* 00596 ;TPA$TYPE U.1006: .WORD 4459 ; 116B 00598 ;TPA$TARGET U.1008: .WORD <<U.1007-U.1008>-2> ; 0000* 0059A ;TPA$TYPE U.1009: .WORD -27151 ; 95F1 0059C ;TPA$ACTION U.1010: .LONG <<U.36-U.1010>-4> ; 00000000V 0059E ;TPA$TARGET U.1011: .WORD -2 ; FFFE 005A2 ;SS_PKT_STATE U.977: .BLKB 0 ; 005A4 ;TPA$TYPE U.1013: .WORD -10765 ; D5F3 005A4 ;TPA$ACTION U.1014: .LONG <<U.30-U.1014>-4> ; 00000000V 005A6 ;TPA$ADDR U.1015: .LONG <<SND_PKT_SIZE-U.1015>-4> ; 00000000* 005AA ;TPA$TARGET U.1016: .WORD <<U.75-U.1016>-2> ; 0000* 005AE ;SS_PAD_STATE U.989: .BLKB 0 ; 005B0 ;TPA$TYPE U.1017: .WORD -10765 ; D5F3 005B0 ;TPA$ACTION U.1018: .LONG <<U.31-U.1018>-4> ; 00000000V 005B2 ;TPA$ADDR U.1019: .LONG <<SND_NPAD-U.1019>-4> ; 00000000* 005B6 ;TPA$TARGET U.1020: .WORD <<U.75-U.1020>-2> ; 0000* 005BA ;SS_PDC_STATE U.983: .BLKB 0 ; 005BC ;TPA$TYPE U.1021: .WORD -10764 ; D5F4 005BC ;TPA$ACTION U.1022: .LONG <<U.32-U.1022>-4> ; 00000000V 005BE ;TPA$ADDR U.1023: .LONG <<SND_PADCHAR-U.1023>-4> ; 00000000* 005C2 ;TPA$TARGET U.1024: .WORD <<U.75-U.1024>-2> ; 0000* 005C6 ;SS_SOH_STATE U.1001: .BLKB 0 ; 005C8 ;TPA$TYPE U.1025: .WORD -10764 ; D5F4 005C8 ;TPA$ACTION U.1026: .LONG <<U.35-U.1026>-4> ; 00000000V 005CA ;TPA$ADDR U.1027: .LONG <<SND_SOH-U.1027>-4> ; 00000000* 005CE ;TPA$TARGET U.1028: .WORD <<U.75-U.1028>-2> ; 0000* 005D2 ;SS_TIM_STATE U.1007: .BLKB 0 ; 005D4 ;TPA$TYPE U.1029: .WORD 22003 ; 55F3 005D4 ;TPA$ADDR U.1030: .LONG <<SND_TIMEOUT-U.1030>-4> ; 00000000* 005D6 ;TPA$TARGET U.1031: .WORD <<U.75-U.1031>-2> ; 0000* 005DA ;SS_EOL_STATE U.971: .BLKB 0 ; 005DC ;TPA$TYPE U.1032: .WORD -10764 ; D5F4 005DC ;TPA$ACTION U.1033: .LONG <<U.33-U.1033>-4> ; 00000000V 005DE ;TPA$ADDR U.1034: .LONG <<SND_EOL-U.1034>-4> ; 00000000* 005E2 ;TPA$TARGET U.1035: .WORD <<U.75-U.1035>-2> ; 0000* 005E6 ;SS_QUO_STATE U.995: .BLKB 0 ; 005E8 ;TPA$TYPE U.1036: .WORD -10764 ; D5F4 005E8 ;TPA$ACTION U.1037: .LONG <<U.34-U.1037>-4> ; 00000000V 005EA ;TPA$ADDR U.1038: .LONG <<SND_QUOTE_CHR-U.1038>-4> ; 00000000* 005EE ;TPA$TARGET U.1039: .WORD <<U.75-U.1039>-2> ; 0000* 005F2 ;SET_SRV_STATE U.493: .BLKB 0 ; 005F4 ;TPA$TYPE U.1040: .WORD 22003 ; 55F3 005F4 ;TPA$ADDR U.1041: .LONG <<SRV_TIMEOUT-U.1041>-4> ; 00000000* 005F6 ;TPA$TARGET U.1042: .WORD <<U.75-U.1042>-2> ; 0000* 005FA ;SET_TRN_STATE U.499: .BLKB 0 ; 005FC ;TPA$TYPE U.1046: .WORD 4460 ; 116C 005FC ;TPA$TARGET U.1048: .WORD <<U.1047-U.1048>-2> ; 0000* 005FE ;TPA$TYPE U.1052: .WORD 4461 ; 116D 00600 ;TPA$TARGET U.1054: .WORD <<U.1053-U.1054>-2> ; 0000* 00602 ;TPA$TYPE U.1055: .WORD -27151 ; 95F1 00604 ;TPA$ACTION U.1056: .LONG <<U.36-U.1056>-4> ; 00000000V 00606 ;TPA$TARGET U.1057: .WORD -2 ; FFFE 0060A ;SET_TRD_STATE U.1047: .BLKB 0 ; 0060C ;TPA$TYPE U.1059: .WORD -10769 ; D5EF 0060C ;TPA$ACTION U.1060: .LONG <<U.20-U.1060>-4> ; 00000000V 0060E ;TPA$ADDR U.1061: .LONG <<TRANS_DELAY-U.1061>-4> ; 00000000* 00612 ;TPA$TARGET U.1062: .WORD <<U.75-U.1062>-2> ; 0000* 00616 ;SET_TRE_STATE U.1053: .BLKB 0 ; 00618 ;TPA$TYPE U.1066: .WORD -27794 ; 936E 00618 ;TPA$FLAGS2 U.1067: .BYTE 1 ; 01 0061A ;TPA$PARAM U.1068: .LONG 1 ; 00000001 0061B ;TPA$ACTION U.1069: .LONG <<U.19-U.1069>-4> ; 00000000V 0061F ;TPA$TARGET U.1070: .WORD <<U.75-U.1070>-2> ; 0000* 00623 ;TPA$TYPE U.1074: .WORD -27793 ; 936F 00625 ;TPA$FLAGS2 U.1075: .BYTE 1 ; 01 00627 ;TPA$PARAM U.1076: .LONG 0 ; 00000000 00628 ;TPA$ACTION U.1077: .LONG <<U.19-U.1077>-4> ; 00000000V 0062C ;TPA$TARGET U.1078: .WORD <<U.75-U.1078>-2> ; 0000* 00630 ;TPA$TYPE U.1079: .WORD -27151 ; 95F1 00632 ;TPA$ACTION U.1080: .LONG <<U.36-U.1080>-4> ; 00000000V 00634 ;TPA$TARGET U.1081: .WORD -2 ; FFFE 00638 ;SEND_STATE U.181: .BLKB 0 ; 0063A ;TPA$TYPE U.1083: .WORD -28179 ; 91ED 0063A ;TPA$ACTION U.1084: .LONG <<U.12-U.1084>-4> ; 00000000V 0063C ;TPA$TARGET U.1085: .WORD <<U.181-U.1085>-2> ; 0000* 00640 ;TPA$TYPE U.1086: .WORD -26634 ; 97F6 00642 ;TPA$FLAGS2 U.1087: .BYTE 1 ; 01 00644 ;TPA$PARAM U.1088: .ADDRESS FILE_DESC ; 00000000G 00645 ;TPA$ACTION U.1089: .LONG <<U.14-U.1089>-4> ; 00000000V 00649 ;TPA$TARGET U.1090: .WORD <<U.75-U.1090>-2> ; 0000* 0064D ;SHOW_STATE U.196: .BLKB 0 ; 0064F ;TPA$TYPE U.1094: .WORD 29040 ; 7170 0064F ;TPA$ADDR U.1095: .LONG <<U.50-U.1095>-4> ; 00000000* 00651 ;TPA$MASK U.1096: .LONG 1 ; 00000001 00655 ;TPA$TARGET U.1097: .WORD <<U.75-U.1097>-2> ; 0000* 00659 ;TPA$TYPE U.1101: .WORD 29041 ; 7171 0065B ;TPA$ADDR U.1102: .LONG <<U.50-U.1102>-4> ; 00000000* 0065D ;TPA$MASK U.1103: .LONG 12 ; 0000000C 00661 ;TPA$TARGET U.1104: .WORD <<U.75-U.1104>-2> ; 0000* 00665 ;TPA$TYPE U.1108: .WORD 29042 ; 7172 00667 ;TPA$ADDR U.1109: .LONG <<U.50-U.1109>-4> ; 00000000* 00669 ;TPA$MASK U.1110: .LONG 16 ; 00000010 0066D ;TPA$TARGET U.1111: .WORD <<U.75-U.1111>-2> ; 0000* 00671 ;TPA$TYPE U.1115: .WORD 29043 ; 7173 00673 ;TPA$ADDR U.1116: .LONG <<U.50-U.1116>-4> ; 00000000* 00675 ;TPA$MASK U.1117: .LONG 2 ; 00000002 00679 ;TPA$TARGET U.1118: .WORD <<U.75-U.1118>-2> ; 0000* 0067D ;TPA$TYPE U.1122: .WORD 29044 ; 7174 0067F ;TPA$ADDR U.1123: .LONG <<U.50-U.1123>-4> ; 00000000* 00681 ;TPA$MASK U.1124: .LONG 3 ; 00000003 00685 ;TPA$TARGET U.1125: .WORD <<U.75-U.1125>-2> ; 0000* 00689 ;TPA$TYPE U.1129: .WORD 29045 ; 7175 0068B ;TPA$ADDR U.1130: .LONG <<U.50-U.1130>-4> ; 00000000* 0068D ;TPA$MASK U.1131: .LONG 4 ; 00000004 00691 ;TPA$TARGET U.1132: .WORD <<U.75-U.1132>-2> ; 0000* 00695 ;TPA$TYPE U.1136: .WORD 29046 ; 7176 00697 ;TPA$ADDR U.1137: .LONG <<U.50-U.1137>-4> ; 00000000* 00699 ;TPA$MASK U.1138: .LONG 14 ; 0000000E 0069D ;TPA$TARGET U.1139: .WORD <<U.75-U.1139>-2> ; 0000* 006A1 ;TPA$TYPE U.1143: .WORD 29047 ; 7177 006A3 ;TPA$ADDR U.1144: .LONG <<U.50-U.1144>-4> ; 00000000* 006A5 ;TPA$MASK U.1145: .LONG 13 ; 0000000D 006A9 ;TPA$TARGET U.1146: .WORD <<U.75-U.1146>-2> ; 0000* 006AD ;TPA$TYPE U.1150: .WORD 29048 ; 7178 006AF ;TPA$ADDR U.1151: .LONG <<U.50-U.1151>-4> ; 00000000* 006B1 ;TPA$MASK U.1152: .LONG 6 ; 00000006 006B5 ;TPA$TARGET U.1153: .WORD <<U.75-U.1153>-2> ; 0000* 006B9 ;TPA$TYPE U.1157: .WORD 29049 ; 7179 006BB ;TPA$ADDR U.1158: .LONG <<U.50-U.1158>-4> ; 00000000* 006BD ;TPA$MASK U.1159: .LONG 7 ; 00000007 006C1 ;TPA$TARGET U.1160: .WORD <<U.75-U.1160>-2> ; 0000* 006C5 ;TPA$TYPE U.1164: .WORD 29050 ; 717A 006C7 ;TPA$ADDR U.1165: .LONG <<U.50-U.1165>-4> ; 00000000* 006C9 ;TPA$MASK U.1166: .LONG 15 ; 0000000F 006CD ;TPA$TARGET U.1167: .WORD <<U.75-U.1167>-2> ; 0000* 006D1 ;TPA$TYPE U.1171: .WORD 29051 ; 717B 006D3 ;TPA$ADDR U.1172: .LONG <<U.50-U.1172>-4> ; 00000000* 006D5 ;TPA$MASK U.1173: .LONG 10 ; 0000000A 006D9 ;TPA$TARGET U.1174: .WORD <<U.75-U.1174>-2> ; 0000* 006DD ;TPA$TYPE U.1178: .WORD 29052 ; 717C 006DF ;TPA$ADDR U.1179: .LONG <<U.50-U.1179>-4> ; 00000000* 006E1 ;TPA$MASK U.1180: .LONG 8 ; 00000008 006E5 ;TPA$TARGET U.1181: .WORD <<U.75-U.1181>-2> ; 0000* 006E9 ;TPA$TYPE U.1185: .WORD 29053 ; 717D 006EB ;TPA$ADDR U.1186: .LONG <<U.50-U.1186>-4> ; 00000000* 006ED ;TPA$MASK U.1187: .LONG 5 ; 00000005 006F1 ;TPA$TARGET U.1188: .WORD <<U.75-U.1188>-2> ; 0000* 006F5 ;TPA$TYPE U.1192: .WORD 29054 ; 717E 006F7 ;TPA$ADDR U.1193: .LONG <<U.50-U.1193>-4> ; 00000000* 006F9 ;TPA$MASK U.1194: .LONG 9 ; 00000009 006FD ;TPA$TARGET U.1195: .WORD <<U.75-U.1195>-2> ; 0000* 00701 ;TPA$TYPE U.1199: .WORD 29055 ; 717F 00703 ;TPA$ADDR U.1200: .LONG <<U.50-U.1200>-4> ; 00000000* 00705 ;TPA$MASK U.1201: .LONG 11 ; 0000000B 00709 ;TPA$TARGET U.1202: .WORD <<U.75-U.1202>-2> ; 0000* 0070D ;TPA$TYPE U.1206: .WORD 29056 ; 7180 0070F ;TPA$ADDR U.1207: .LONG <<U.50-U.1207>-4> ; 00000000* 00711 ;TPA$MASK U.1208: .LONG 17 ; 00000011 00715 ;TPA$TARGET U.1209: .WORD <<U.75-U.1209>-2> ; 0000* 00719 ;TPA$TYPE U.1213: .WORD 29057 ; 7181 0071B ;TPA$ADDR U.1214: .LONG <<U.50-U.1214>-4> ; 00000000* 0071D ;TPA$MASK U.1215: .LONG 18 ; 00000012 00721 ;TPA$TARGET U.1216: .WORD <<U.75-U.1216>-2> ; 0000* 00725 ;TPA$TYPE U.1217: .WORD -27151 ; 95F1 00727 ;TPA$ACTION U.1218: .LONG <<U.36-U.1218>-4> ; 00000000V 00729 ;TPA$TARGET U.1219: .WORD -2 ; FFFE 0072D ;LOG_STATE U.129: .BLKB 0 ; 0072F ;TPA$TYPE U.1224: .WORD 4482 ; 1182 0072F ;TPA$TARGET U.1226: .WORD <<U.1225-U.1226>-2> ; 0000* 00731 ;TPA$TYPE U.1230: .WORD 4483 ; 1183 00733 ;TPA$TARGET U.1232: .WORD <<U.1231-U.1232>-2> ; 0000* 00735 ;TPA$TYPE U.1236: .WORD 4484 ; 1184 00737 ;TPA$TARGET U.1238: .WORD <<U.1237-U.1238>-2> ; 0000* 00739 ;TPA$TYPE U.1239: .WORD -27151 ; 95F1 0073B ;TPA$ACTION U.1240: .LONG <<U.36-U.1240>-4> ; 00000000V 0073D ;TPA$TARGET U.1241: .WORD -2 ; FFFE 00741 ;DBG_STATE U.1225: .BLKB 0 ; 00743 ;TPA$TYPE U.1243: .WORD -28179 ; 91ED 00743 ;TPA$ACTION U.1244: .LONG <<U.12-U.1244>-4> ; 00000000V 00745 ;TPA$TARGET U.1245: .WORD <<U.1225-U.1245>-2> ; 0000* 00749 ;TPA$TYPE U.1246: .WORD -26634 ; 97F6 0074B ;TPA$FLAGS2 U.1247: .BYTE 1 ; 01 0074D ;TPA$PARAM U.1248: .ADDRESS DEBUG_DESC ; 00000000G 0074E ;TPA$ACTION U.1249: .LONG <<U.14-U.1249>-4> ; 00000000V 00752 ;TPA$TARGET U.1250: .WORD <<U.75-U.1250>-2> ; 0000* 00756 ;SES_STATE U.1231: .BLKB 0 ; 00758 ;TPA$TYPE U.1251: .WORD -28179 ; 91ED 00758 ;TPA$ACTION U.1252: .LONG <<U.12-U.1252>-4> ; 00000000V 0075A ;TPA$TARGET U.1253: .WORD <<U.1231-U.1253>-2> ; 0000* 0075E ;TPA$TYPE U.1254: .WORD -26634 ; 97F6 00760 ;TPA$FLAGS2 U.1255: .BYTE 1 ; 01 00762 ;TPA$PARAM U.1256: .ADDRESS SESSION_DESC ; 00000000G 00763 ;TPA$ACTION U.1257: .LONG <<U.14-U.1257>-4> ; 00000000V 00767 ;TPA$TARGET U.1258: .WORD <<U.75-U.1258>-2> ; 0000* 0076B ;TRN_STATE U.1237: .BLKB 0 ; 0076D ;TPA$TYPE U.1259: .WORD -28179 ; 91ED 0076D ;TPA$ACTION U.1260: .LONG <<U.12-U.1260>-4> ; 00000000V 0076F ;TPA$TARGET U.1261: .WORD <<U.1237-U.1261>-2> ; 0000* 00773 ;TPA$TYPE U.1262: .WORD -26634 ; 97F6 00775 ;TPA$FLAGS2 U.1263: .BYTE 1 ; 01 00777 ;TPA$PARAM U.1264: .ADDRESS TRANSACTION_DESC ; 00000000' 00778 ;TPA$ACTION U.1265: .LONG <<U.14-U.1265>-4> ; 00000000V 0077C ;TPA$TARGET U.1266: .WORD <<U.75-U.1266>-2> ; 0000* 00780 ;TAKE_STATE U.211: .BLKB 0 ; 00782 ;TPA$TYPE U.1267: .WORD -28113 ; 922F 00782 ;TPA$FLAGS2 U.1268: .BYTE 1 ; 01 00784 ;TPA$PARAM U.1269: .ADDRESS U.61 ; 00000000' 00785 ;TPA$ACTION U.1270: .LONG <<U.14-U.1270>-4> ; 00000000V 00789 ;TPA$TARGET U.1272: .WORD <<U.1271-U.1272>-2> ; 0000* 0078D ;TPA$TYPE U.1273: .WORD -28179 ; 91ED 0078F ;TPA$ACTION U.1274: .LONG <<U.12-U.1274>-4> ; 00000000V 00791 ;TPA$TARGET U.1275: .WORD <<U.211-U.1275>-2> ; 0000* 00795 ;TPA$TYPE U.1276: .WORD -26634 ; 97F6 00797 ;TPA$FLAGS2 U.1277: .BYTE 1 ; 01 00799 ;TPA$PARAM U.1278: .ADDRESS U.61 ; 00000000' 0079A ;TPA$ACTION U.1279: .LONG <<U.14-U.1279>-4> ; 00000000V 0079E ;TPA$TARGET U.1280: .WORD <<U.75-U.1280>-2> ; 0000* 007A2 ;TAK_SWT_STATE U.1271: .BLKB 0 ; 007A4 ;TPA$TYPE U.1284: .WORD 29061 ; 7185 007A4 ;TPA$ADDR U.1285: .LONG <<U.52-U.1285>-4> ; 00000000* 007A6 ;TPA$MASK U.1286: .LONG 1 ; 00000001 007AA ;TPA$TARGET U.1287: .WORD <<U.75-U.1287>-2> ; 0000* 007AE ;TPA$TYPE U.1288: .WORD -27151 ; 95F1 007B0 ;TPA$ACTION U.1289: .LONG <<U.36-U.1289>-4> ; 00000000V 007B2 ;TPA$TARGET U.1290: .WORD -2 ; FFFE 007B6 ;TRANSMIT_STATE U.223: .BLKB 0 ; 007B8 ;TPA$TYPE U.1292: .WORD -28179 ; 91ED 007B8 ;TPA$ACTION U.1293: .LONG <<U.12-U.1293>-4> ; 00000000V 007BA ;TPA$TARGET U.1294: .WORD <<U.223-U.1294>-2> ; 0000* 007BE ;TPA$TYPE U.1295: .WORD -26634 ; 97F6 007C0 ;TPA$FLAGS2 U.1296: .BYTE 1 ; 01 007C2 ;TPA$PARAM U.1297: .ADDRESS FILE_DESC ; 00000000G 007C3 ;TPA$ACTION U.1298: .LONG <<U.14-U.1298>-4> ; 00000000V 007C7 ;TPA$TARGET U.1299: .WORD <<U.75-U.1299>-2> ; 0000* 007CB ;DONE_STATE U.75: .BLKB 0 ; 007CD ;TPA$TYPE U.1300: .WORD 5623 ; 15F7 007CD ;TPA$TARGET U.1301: .WORD -1 ; FFFF 007CF .PSECT _LIB$KEY1$,NOWRT, SHR, PIC,1 ;TPA$KEYST0 U.69: .BLKB 0 ; 00000 ;TPA$KEYST U.71: .ASCII \BYE\ ; 45 59 42 00000 .BYTE -1 ; FF 00003 ;TPA$KEYST0 U.77: .BLKB 0 ; 00004 ;TPA$KEYST U.79: .ASCII \CONNECT\ ; 54 43 45 4E 4E 4F 43 00004 .BYTE -1 ; FF 0000B ;TPA$KEYST0 U.85: .BLKB 0 ; 0000C ;TPA$KEYST U.87: .ASCII \EXIT\ ; 54 49 58 45 0000C .BYTE -1 ; FF 00010 ;TPA$KEYST0 U.92: .BLKB 0 ; 00011 ;TPA$KEYST U.94: .ASCII \FINISH\ ; 48 53 49 4E 49 46 00011 .BYTE -1 ; FF 00017 ;TPA$KEYST0 U.99: .BLKB 0 ; 00018 ;TPA$KEYST U.101: .ASCII \GET\ ; 54 45 47 00018 .BYTE -1 ; FF 0001B ;TPA$KEYST0 U.107: .BLKB 0 ; 0001C ;TPA$KEYST U.109: .ASCII \HELP\ ; 50 4C 45 48 0001C .BYTE -1 ; FF 00020 ;TPA$KEYST0 U.115: .BLKB 0 ; 00021 ;TPA$KEYST U.117: .ASCII \LOCAL\ ; 4C 41 43 4F 4C 00021 .BYTE -1 ; FF 00026 ;TPA$KEYST0 U.123: .BLKB 0 ; 00027 ;TPA$KEYST U.125: .ASCII \LOG\ ; 47 4F 4C 00027 .BYTE -1 ; FF 0002A ;TPA$KEYST0 U.131: .BLKB 0 ; 0002B ;TPA$KEYST U.133: .ASCII \LOGOUT\ ; 54 55 4F 47 4F 4C 0002B .BYTE -1 ; FF 00031 ;TPA$KEYST0 U.138: .BLKB 0 ; 00032 ;TPA$KEYST U.140: .ASCII \PUSH\ ; 48 53 55 50 00032 .BYTE -1 ; FF 00036 ;TPA$KEYST0 U.145: .BLKB 0 ; 00037 ;TPA$KEYST U.147: .ASCII \QUIT\ ; 54 49 55 51 00037 .BYTE -1 ; FF 0003B ;TPA$KEYST0 U.152: .BLKB 0 ; 0003C ;TPA$KEYST U.154: .ASCII \RECEIVE\ ; 45 56 49 45 43 45 52 0003C .BYTE -1 ; FF 00043 ;TPA$KEYST0 U.160: .BLKB 0 ; 00044 ;TPA$KEYST U.162: .ASCII \REMOTE\ ; 45 54 4F 4D 45 52 00044 .BYTE -1 ; FF 0004A ;TPA$KEYST0 U.167: .BLKB 0 ; 0004B ;TPA$KEYST U.169: .ASCII \SET\ ; 54 45 53 0004B .BYTE -1 ; FF 0004E ;TPA$KEYST0 U.175: .BLKB 0 ; 0004F ;TPA$KEYST U.177: .ASCII \SEND\ ; 44 4E 45 53 0004F .BYTE -1 ; FF 00053 ;TPA$KEYST0 U.183: .BLKB 0 ; 00054 ;TPA$KEYST U.185: .ASCII \SERVER\ ; 52 45 56 52 45 53 00054 .BYTE -1 ; FF 0005A ;TPA$KEYST0 U.190: .BLKB 0 ; 0005B ;TPA$KEYST U.192: .ASCII \SHOW\ ; 57 4F 48 53 0005B .BYTE -1 ; FF 0005F ;TPA$KEYST0 U.198: .BLKB 0 ; 00060 ;TPA$KEYST U.200: .ASCII \STATUS\ ; 53 55 54 41 54 53 00060 .BYTE -1 ; FF 00066 ;TPA$KEYST0 U.205: .BLKB 0 ; 00067 ;TPA$KEYST U.207: .ASCII \TAKE\ ; 45 4B 41 54 00067 .BYTE -1 ; FF 0006B ;TPA$KEYST0 U.217: .BLKB 0 ; 0006C ;TPA$KEYST U.219: .ASCII \TRANSMIT\ ; 54 49 4D 53 4E 41 52 54 0006C .BYTE -1 ; FF 00074 ;TPA$KEYFILL U.228: .BYTE -1 ; FF 00075 ;TPA$KEYST0 U.259: .BLKB 0 ; 00076 ;TPA$KEYST U.261: .ASCII \COPY\ ; 59 50 4F 43 00076 .BYTE -1 ; FF 0007A ;TPA$KEYST0 U.267: .BLKB 0 ; 0007B ;TPA$KEYST U.269: .ASCII \CWD\ ; 44 57 43 0007B .BYTE -1 ; FF 0007E ;TPA$KEYST0 U.275: .BLKB 0 ; 0007F ;TPA$KEYST U.277: .ASCII \DELETE\ ; 45 54 45 4C 45 44 0007F .BYTE -1 ; FF 00085 ;TPA$KEYST0 U.282: .BLKB 0 ; 00086 ;TPA$KEYST U.284: .ASCII \DIRECTORY\ ; 52 4F 54 43 45 52 49 44 00086 ; 59 0008E .BYTE -1 ; FF 0008F ;TPA$KEYST0 U.289: .BLKB 0 ; 00090 ;TPA$KEYST U.291: .ASCII \DISK_USAGE\ ; 41 53 55 5F 4B 53 49 44 00090 ; 45 47 00098 .BYTE -1 ; FF 0009A ;TPA$KEYST0 U.296: .BLKB 0 ; 0009B ;TPA$KEYST U.298: .ASCII \EXIT\ ; 54 49 58 45 0009B .BYTE -1 ; FF 0009F ;TPA$KEYST0 U.303: .BLKB 0 ; 000A0 ;TPA$KEYST U.305: .ASCII \HELP\ ; 50 4C 45 48 000A0 .BYTE -1 ; FF 000A4 ;TPA$KEYST0 U.310: .BLKB 0 ; 000A5 ;TPA$KEYST U.312: .ASCII \HOST\ ; 54 53 4F 48 000A5 .BYTE -1 ; FF 000A9 ;TPA$KEYST0 U.317: .BLKB 0 ; 000AA ;TPA$KEYST U.319: .ASCII \LOGIN\ ; 4E 49 47 4F 4C 000AA .BYTE -1 ; FF 000AF ;TPA$KEYST0 U.324: .BLKB 0 ; 000B0 ;TPA$KEYST U.326: .ASCII \LOGOUT\ ; 54 55 4F 47 4F 4C 000B0 .BYTE -1 ; FF 000B6 ;TPA$KEYST0 U.331: .BLKB 0 ; 000B7 ;TPA$KEYST U.333: .ASCII \RENAME\ ; 45 4D 41 4E 45 52 000B7 .BYTE -1 ; FF 000BD ;TPA$KEYST0 U.338: .BLKB 0 ; 000BE ;TPA$KEYST U.340: .ASCII \SEND_MESSAGE\ ; 53 45 4D 5F 44 4E 45 53 000BE ; 45 47 41 53 000C6 .BYTE -1 ; FF 000CA ;TPA$KEYST0 U.345: .BLKB 0 ; 000CB ;TPA$KEYST U.347: .ASCII \SPACE\ ; 45 43 41 50 53 000CB .BYTE -1 ; FF 000D0 ;TPA$KEYST0 U.352: .BLKB 0 ; 000D1 ;TPA$KEYST U.354: .ASCII \STATUS\ ; 53 55 54 41 54 53 000D1 .BYTE -1 ; FF 000D7 ;TPA$KEYST0 U.359: .BLKB 0 ; 000D8 ;TPA$KEYST U.361: .ASCII \TYPE\ ; 45 50 59 54 000D8 .BYTE -1 ; FF 000DC ;TPA$KEYST0 U.366: .BLKB 0 ; 000DD ;TPA$KEYST U.368: .ASCII \WHO\ ; 4F 48 57 000DD .BYTE -1 ; FF 000E0 ;TPA$KEYFILL U.376: .BYTE -1 ; FF 000E1 ;TPA$KEYST0 U.388: .BLKB 0 ; 000E2 ;TPA$KEYST U.390: .ASCII \BLOCK_CHECK_TYPE\ ; 48 43 5F 4B 43 4F 4C 42 000E2 ; 45 50 59 54 5F 4B 43 45 000EA .BYTE -1 ; FF 000F2 ;TPA$KEYST0 U.394: .BLKB 0 ; 000F3 ;TPA$KEYST U.396: .ASCII \DEBUGGING\ ; 4E 49 47 47 55 42 45 44 000F3 ; 47 000FB .BYTE -1 ; FF 000FC ;TPA$KEYST0 U.400: .BLKB 0 ; 000FD ;TPA$KEYST U.402: .ASCII \DELAY\ ; 59 41 4C 45 44 000FD .BYTE -1 ; FF 00102 ;TPA$KEYST0 U.406: .BLKB 0 ; 00103 ;TPA$KEYST U.408: .ASCII \ESCAPE\ ; 45 50 41 43 53 45 00103 .BYTE -1 ; FF 00109 ;TPA$KEYST0 U.412: .BLKB 0 ; 0010A ;TPA$KEYST U.414: .ASCII \FILE\ ; 45 4C 49 46 0010A .BYTE -1 ; FF 0010E ;TPA$KEYST0 U.418: .BLKB 0 ; 0010F ;TPA$KEYST U.420: .ASCII \HANDSHAKE\ ; 4B 41 48 53 44 4E 41 48 0010F ; 45 00117 .BYTE -1 ; FF 00118 ;TPA$KEYST0 U.424: .BLKB 0 ; 00119 ;TPA$KEYST U.426: .ASCII \IBM_MODE\ ; 45 44 4F 4D 5F 4D 42 49 00119 .BYTE -1 ; FF 00121 ;TPA$KEYST0 U.430: .BLKB 0 ; 00122 ;TPA$KEYST U.432: .ASCII \INCOMPLETE_FILE_DISPOSITION\ ; 45 4C 50 4D 4F 43 4E 49 00122 ; 5F 45 4C 49 46 5F 45 54 0012A ; 54 49 53 4F 50 53 49 44 00132 ; 4E 4F 49 0013A .BYTE -1 ; FF 0013D ;TPA$KEYST0 U.436: .BLKB 0 ; 0013E ;TPA$KEYST U.438: .ASCII \LINE\ ; 45 4E 49 4C 0013E .BYTE -1 ; FF 00142 ;TPA$KEYST0 U.441: .BLKB 0 ; 00143 ;TPA$KEYST U.443: .ASCII \LOCAL_ECHO\ ; 43 45 5F 4C 41 43 4F 4C 00143 ; 4F 48 0014B .BYTE -1 ; FF 0014D ;TPA$KEYST0 U.447: .BLKB 0 ; 0014E ;TPA$KEYST U.449: .ASCII \MESSAGE\ ; 45 47 41 53 53 45 4D 0014E .BYTE -1 ; FF 00155 ;TPA$KEYST0 U.453: .BLKB 0 ; 00156 ;TPA$KEYST U.455: .ASCII \PARITY\ ; 59 54 49 52 41 50 00156 .BYTE -1 ; FF 0015C ;TPA$KEYST0 U.459: .BLKB 0 ; 0015D ;TPA$KEYST U.461: .ASCII \PROMPT\ ; 54 50 4D 4F 52 50 0015D .BYTE -1 ; FF 00163 ;TPA$KEYST0 U.465: .BLKB 0 ; 00164 ;TPA$KEYST U.467: .ASCII \RECEIVE\ ; 45 56 49 45 43 45 52 00164 .BYTE -1 ; FF 0016B ;TPA$KEYST0 U.471: .BLKB 0 ; 0016C ;TPA$KEYST U.473: .ASCII \REPEAT_QUOTE\ ; 51 5F 54 41 45 50 45 52 0016C ; 45 54 4F 55 00174 .BYTE -1 ; FF 00178 ;TPA$KEYST0 U.477: .BLKB 0 ; 00179 ;TPA$KEYST U.479: .ASCII \RETRY\ ; 59 52 54 45 52 00179 .BYTE -1 ; FF 0017E ;TPA$KEYST0 U.483: .BLKB 0 ; 0017F ;TPA$KEYST U.485: .ASCII \SEND\ ; 44 4E 45 53 0017F .BYTE -1 ; FF 00183 ;TPA$KEYST0 U.489: .BLKB 0 ; 00184 ;TPA$KEYST U.491: .ASCII \SERVER_TIMER\ ; 54 5F 52 45 56 52 45 53 00184 ; 52 45 4D 49 0018C .BYTE -1 ; FF 00190 ;TPA$KEYST0 U.495: .BLKB 0 ; 00191 ;TPA$KEYST U.497: .ASCII \TRANSMIT\ ; 54 49 4D 53 4E 41 52 54 00191 .BYTE -1 ; FF 00199 ;TPA$KEYFILL U.504: .BYTE -1 ; FF 0019A ;TPA$KEYST0 U.505: .BLKB 0 ; 0019B ;TPA$KEYST U.507: .ASCII \DISCARD\ ; 44 52 41 43 53 49 44 0019B .BYTE -1 ; FF 001A2 ;TPA$KEYST0 U.513: .BLKB 0 ; 001A3 ;TPA$KEYST U.515: .ASCII \KEEP\ ; 50 45 45 4B 001A3 .BYTE -1 ; FF 001A7 ;TPA$KEYFILL U.524: .BYTE -1 ; FF 001A8 ;TPA$KEYST0 U.525: .BLKB 0 ; 001A9 ;TPA$KEYST U.527: .ASCII \1_CHARACTER_CHECKSUM\ ; 43 41 52 41 48 43 5F 31 001A9 ; 43 45 48 43 5F 52 45 54 001B1 ; 4D 55 53 4B 001B9 .BYTE -1 ; FF 001BD ;TPA$KEYST0 U.533: .BLKB 0 ; 001BE ;TPA$KEYST U.535: .ASCII \2_CHARACTER_CHECKSUM\ ; 43 41 52 41 48 43 5F 32 001BE ; 43 45 48 43 5F 52 45 54 001C6 ; 4D 55 53 4B 001CE .BYTE -1 ; FF 001D2 ;TPA$KEYST0 U.541: .BLKB 0 ; 001D3 ;TPA$KEYST U.543: .ASCII \3_CHARACTER_CRC_CCITT\ ; 43 41 52 41 48 43 5F 33 001D3 ; 5F 43 52 43 5F 52 45 54 001DB ; 54 54 49 43 43 001E3 .BYTE -1 ; FF 001E8 ;TPA$KEYST0 U.549: .BLKB 0 ; 001E9 ;TPA$KEYST U.551: .ASCII \ONE_CHARACTER_CHECKSUM\ ; 52 41 48 43 5F 45 4E 4F 001E9 ; 48 43 5F 52 45 54 43 41 001F1 ; 4D 55 53 4B 43 45 001F9 .BYTE -1 ; FF 001FF ;TPA$KEYST0 U.557: .BLKB 0 ; 00200 ;TPA$KEYST U.559: .ASCII \THREE_CHARACTER_CRC_CCITT\ ; 48 43 5F 45 45 52 48 54 00200 ; 5F 52 45 54 43 41 52 41 00208 ; 54 49 43 43 5F 43 52 43 00210 ; 54 00218 .BYTE -1 ; FF 00219 ;TPA$KEYST0 U.565: .BLKB 0 ; 0021A ;TPA$KEYST U.567: .ASCII \TWO_CHARACTER_CHECKSUM\ ; 52 41 48 43 5F 4F 57 54 0021A ; 48 43 5F 52 45 54 43 41 00222 ; 4D 55 53 4B 43 45 0022A .BYTE -1 ; FF 00230 ;TPA$KEYFILL U.576: .BYTE -1 ; FF 00231 ;TPA$KEYST0 U.577: .BLKB 0 ; 00232 ;TPA$KEYST U.579: .ASCII \OFF\ ; 46 46 4F 00232 .BYTE -1 ; FF 00235 ;TPA$KEYST0 U.585: .BLKB 0 ; 00236 ;TPA$KEYST U.587: .ASCII \ON\ ; 4E 4F 00236 .BYTE -1 ; FF 00238 ;TPA$KEYFILL U.596: .BYTE -1 ; FF 00239 ;TPA$KEYST0 U.597: .BLKB 0 ; 0023A ;TPA$KEYST U.599: .ASCII \OFF\ ; 46 46 4F 0023A .BYTE -1 ; FF 0023D ;TPA$KEYST0 U.605: .BLKB 0 ; 0023E ;TPA$KEYST U.607: .ASCII \ON\ ; 4E 4F 0023E .BYTE -1 ; FF 00240 ;TPA$KEYFILL U.616: .BYTE -1 ; FF 00241 ;TPA$KEYST0 U.617: .BLKB 0 ; 00242 ;TPA$KEYST U.619: .ASCII \NONE\ ; 45 4E 4F 4E 00242 .BYTE -1 ; FF 00246 ;TPA$KEYFILL U.627: .BYTE -1 ; FF 00247 ;TPA$KEYST0 U.639: .BLKB 0 ; 00248 ;TPA$KEYST U.641: .ASCII \NAMING\ ; 47 4E 49 4D 41 4E 00248 .BYTE -1 ; FF 0024E ;TPA$KEYST0 U.645: .BLKB 0 ; 0024F ;TPA$KEYST U.647: .ASCII \TYPE\ ; 45 50 59 54 0024F .BYTE -1 ; FF 00253 ;TPA$KEYST0 U.651: .BLKB 0 ; 00254 ;TPA$KEYST U.653: .ASCII \BLOCKSIZE\ ; 5A 49 53 4B 43 4F 4C 42 00254 ; 45 0025C .BYTE -1 ; FF 0025D ;TPA$KEYFILL U.659: .BYTE -1 ; FF 0025E ;TPA$KEYST0 U.660: .BLKB 0 ; 0025F ;TPA$KEYST U.662: .ASCII \FULL\ ; 4C 4C 55 46 0025F .BYTE -1 ; FF 00263 ;TPA$KEYST0 U.668: .BLKB 0 ; 00264 ;TPA$KEYST U.670: .ASCII \NORMAL_FORM\ ; 46 5F 4C 41 4D 52 4F 4E 00264 ; 4D 52 4F 0026C .BYTE -1 ; FF 0026F ;TPA$KEYST0 U.676: .BLKB 0 ; 00270 ;TPA$KEYST U.678: .ASCII \UNTRANSLATED\ ; 4C 53 4E 41 52 54 4E 55 00270 ; 44 45 54 41 00278 .BYTE -1 ; FF 0027C ;TPA$KEYFILL U.687: .BYTE -1 ; FF 0027D ;TPA$KEYST0 U.688: .BLKB 0 ; 0027E ;TPA$KEYST U.690: .ASCII \ASCII\ ; 49 49 43 53 41 0027E .BYTE -1 ; FF 00283 ;TPA$KEYST0 U.696: .BLKB 0 ; 00284 ;TPA$KEYST U.698: .ASCII \BINARY\ ; 59 52 41 4E 49 42 00284 .BYTE -1 ; FF 0028A ;TPA$KEYST0 U.704: .BLKB 0 ; 0028B ;TPA$KEYST U.706: .ASCII \BLOCK\ ; 4B 43 4F 4C 42 0028B .BYTE -1 ; FF 00290 ;TPA$KEYST0 U.712: .BLKB 0 ; 00291 ;TPA$KEYST U.714: .ASCII \FIXED\ ; 44 45 58 49 46 00291 .BYTE -1 ; FF 00296 ;TPA$KEYFILL U.723: .BYTE -1 ; FF 00297 ;TPA$KEYST0 U.730: .BLKB 0 ; 00298 ;TPA$KEYST U.732: .ASCII \OFF\ ; 46 46 4F 00298 .BYTE -1 ; FF 0029B ;TPA$KEYST0 U.738: .BLKB 0 ; 0029C ;TPA$KEYST U.740: .ASCII \ON\ ; 4E 4F 0029C .BYTE -1 ; FF 0029E ;TPA$KEYFILL U.749: .BYTE -1 ; FF 0029F ;TPA$KEYST0 U.750: .BLKB 0 ; 002A0 ;TPA$KEYST U.752: .ASCII \FILE_NAMES\ ; 4D 41 4E 5F 45 4C 49 46 002A0 ; 53 45 002A8 .BYTE -1 ; FF 002AA ;TPA$KEYST0 U.756: .BLKB 0 ; 002AB ;TPA$KEYST U.758: .ASCII \PACKET_NUMBERS\ ; 4E 5F 54 45 4B 43 41 50 002AB ; 53 52 45 42 4D 55 002B3 .BYTE -1 ; FF 002B9 ;TPA$KEYFILL U.765: .BYTE -1 ; FF 002BA ;TPA$KEYST0 U.766: .BLKB 0 ; 002BB ;TPA$KEYST U.768: .ASCII \OFF\ ; 46 46 4F 002BB .BYTE -1 ; FF 002BE ;TPA$KEYST0 U.774: .BLKB 0 ; 002BF ;TPA$KEYST U.776: .ASCII \ON\ ; 4E 4F 002BF .BYTE -1 ; FF 002C1 ;TPA$KEYFILL U.785: .BYTE -1 ; FF 002C2 ;TPA$KEYST0 U.786: .BLKB 0 ; 002C3 ;TPA$KEYST U.788: .ASCII \OFF\ ; 46 46 4F 002C3 .BYTE -1 ; FF 002C6 ;TPA$KEYST0 U.794: .BLKB 0 ; 002C7 ;TPA$KEYST U.796: .ASCII \ON\ ; 4E 4F 002C7 .BYTE -1 ; FF 002C9 ;TPA$KEYFILL U.805: .BYTE -1 ; FF 002CA ;TPA$KEYST0 U.818: .BLKB 0 ; 002CB ;TPA$KEYST U.820: .ASCII \INITIAL_CONNECTION\ ; 5F 4C 41 49 54 49 4E 49 002CB ; 49 54 43 45 4E 4E 4F 43 002D3 ; 4E 4F 002DB .BYTE -1 ; FF 002DD ;TPA$KEYST0 U.824: .BLKB 0 ; 002DE ;TPA$KEYST U.826: .ASCII \PACKET\ ; 54 45 4B 43 41 50 002DE .BYTE -1 ; FF 002E4 ;TPA$KEYFILL U.833: .BYTE -1 ; FF 002E5 ;TPA$KEYST0 U.840: .BLKB 0 ; 002E6 ;TPA$KEYST U.842: .ASCII \EVEN\ ; 4E 45 56 45 002E6 .BYTE -1 ; FF 002EA ;TPA$KEYST0 U.848: .BLKB 0 ; 002EB ;TPA$KEYST U.850: .ASCII \MARK\ ; 4B 52 41 4D 002EB .BYTE -1 ; FF 002EF ;TPA$KEYST0 U.856: .BLKB 0 ; 002F0 ;TPA$KEYST U.858: .ASCII \NONE\ ; 45 4E 4F 4E 002F0 .BYTE -1 ; FF 002F4 ;TPA$KEYST0 U.864: .BLKB 0 ; 002F5 ;TPA$KEYST U.866: .ASCII \ODD\ ; 44 44 4F 002F5 .BYTE -1 ; FF 002F8 ;TPA$KEYST0 U.872: .BLKB 0 ; 002F9 ;TPA$KEYST U.874: .ASCII \SPACE\ ; 45 43 41 50 53 002F9 .BYTE -1 ; FF 002FE ;TPA$KEYFILL U.883: .BYTE -1 ; FF 002FF ;TPA$KEYST0 U.884: .BLKB 0 ; 00300 ;TPA$KEYST U.886: .ASCII \EIGHT-BIT-QUOTE\ ; 49 42 2D 54 48 47 49 45 00300 ; 45 54 4F 55 51 2D 54 00308 .BYTE -1 ; FF 0030F ;TPA$KEYST0 U.890: .BLKB 0 ; 00310 ;TPA$KEYST U.892: .ASCII \END_OF_LINE\ ; 4C 5F 46 4F 5F 44 4E 45 00310 ; 45 4E 49 00318 .BYTE -1 ; FF 0031B ;TPA$KEYST0 U.896: .BLKB 0 ; 0031C ;TPA$KEYST U.898: .ASCII \PACKET_LENGTH\ ; 4C 5F 54 45 4B 43 41 50 0031C ; 48 54 47 4E 45 00324 .BYTE -1 ; FF 00329 ;TPA$KEYST0 U.902: .BLKB 0 ; 0032A ;TPA$KEYST U.904: .ASCII \PADCHAR\ ; 52 41 48 43 44 41 50 0032A .BYTE -1 ; FF 00331 ;TPA$KEYST0 U.908: .BLKB 0 ; 00332 ;TPA$KEYST U.910: .ASCII \PADDING\ ; 47 4E 49 44 44 41 50 00332 .BYTE -1 ; FF 00339 ;TPA$KEYST0 U.914: .BLKB 0 ; 0033A ;TPA$KEYST U.916: .ASCII \QUOTE\ ; 45 54 4F 55 51 0033A .BYTE -1 ; FF 0033F ;TPA$KEYST0 U.920: .BLKB 0 ; 00340 ;TPA$KEYST U.922: .ASCII \START_OF_PACKET\ ; 46 4F 5F 54 52 41 54 53 00340 ; 54 45 4B 43 41 50 5F 00348 .BYTE -1 ; FF 0034F ;TPA$KEYST0 U.926: .BLKB 0 ; 00350 ;TPA$KEYST U.928: .ASCII \TIMEOUT\ ; 54 55 4F 45 4D 49 54 00350 .BYTE -1 ; FF 00357 ;TPA$KEYFILL U.935: .BYTE -1 ; FF 00358 ;TPA$KEYST0 U.967: .BLKB 0 ; 00359 ;TPA$KEYST U.969: .ASCII \END_OF_LINE\ ; 4C 5F 46 4F 5F 44 4E 45 00359 ; 45 4E 49 00361 .BYTE -1 ; FF 00364 ;TPA$KEYST0 U.973: .BLKB 0 ; 00365 ;TPA$KEYST U.975: .ASCII \PACKET_LENGTH\ ; 4C 5F 54 45 4B 43 41 50 00365 ; 48 54 47 4E 45 0036D .BYTE -1 ; FF 00372 ;TPA$KEYST0 U.979: .BLKB 0 ; 00373 ;TPA$KEYST U.981: .ASCII \PADCHAR\ ; 52 41 48 43 44 41 50 00373 .BYTE -1 ; FF 0037A ;TPA$KEYST0 U.985: .BLKB 0 ; 0037B ;TPA$KEYST U.987: .ASCII \PADDING\ ; 47 4E 49 44 44 41 50 0037B .BYTE -1 ; FF 00382 ;TPA$KEYST0 U.991: .BLKB 0 ; 00383 ;TPA$KEYST U.993: .ASCII \QUOTE\ ; 45 54 4F 55 51 00383 .BYTE -1 ; FF 00388 ;TPA$KEYST0 U.997: .BLKB 0 ; 00389 ;TPA$KEYST U.999: .ASCII \START_OF_PACKET\ ; 46 4F 5F 54 52 41 54 53 00389 ; 54 45 4B 43 41 50 5F 00391 .BYTE -1 ; FF 00398 ;TPA$KEYST0 U.1003: .BLKB 0 ; 00399 ;TPA$KEYST U.1005: .ASCII \TIMEOUT\ ; 54 55 4F 45 4D 49 54 00399 .BYTE -1 ; FF 003A0 ;TPA$KEYFILL U.1012: .BYTE -1 ; FF 003A1 ;TPA$KEYST0 U.1043: .BLKB 0 ; 003A2 ;TPA$KEYST U.1045: .ASCII \DELAY\ ; 59 41 4C 45 44 003A2 .BYTE -1 ; FF 003A7 ;TPA$KEYST0 U.1049: .BLKB 0 ; 003A8 ;TPA$KEYST U.1051: .ASCII \ECHO\ ; 4F 48 43 45 003A8 .BYTE -1 ; FF 003AC ;TPA$KEYFILL U.1058: .BYTE -1 ; FF 003AD ;TPA$KEYST0 U.1063: .BLKB 0 ; 003AE ;TPA$KEYST U.1065: .ASCII \ON\ ; 4E 4F 003AE .BYTE -1 ; FF 003B0 ;TPA$KEYST0 U.1071: .BLKB 0 ; 003B1 ;TPA$KEYST U.1073: .ASCII \OFF\ ; 46 46 4F 003B1 .BYTE -1 ; FF 003B4 ;TPA$KEYFILL U.1082: .BYTE -1 ; FF 003B5 ;TPA$KEYST0 U.1091: .BLKB 0 ; 003B6 ;TPA$KEYST U.1093: .ASCII \ALL\ ; 4C 4C 41 003B6 .BYTE -1 ; FF 003B9 ;TPA$KEYST0 U.1098: .BLKB 0 ; 003BA ;TPA$KEYST U.1100: .ASCII \BLOCK_CHECK_TYPE\ ; 48 43 5F 4B 43 4F 4C 42 003BA ; 45 50 59 54 5F 4B 43 45 003C2 .BYTE -1 ; FF 003CA ;TPA$KEYST0 U.1105: .BLKB 0 ; 003CB ;TPA$KEYST U.1107: .ASCII \COMMUNICATIONS\ ; 43 49 4E 55 4D 4D 4F 43 003CB ; 53 4E 4F 49 54 41 003D3 .BYTE -1 ; FF 003D9 ;TPA$KEYST0 U.1112: .BLKB 0 ; 003DA ;TPA$KEYST U.1114: .ASCII \DEBUGGING\ ; 4E 49 47 47 55 42 45 44 003DA ; 47 003E2 .BYTE -1 ; FF 003E3 ;TPA$KEYST0 U.1119: .BLKB 0 ; 003E4 ;TPA$KEYST U.1121: .ASCII \DELAY\ ; 59 41 4C 45 44 003E4 .BYTE -1 ; FF 003E9 ;TPA$KEYST0 U.1126: .BLKB 0 ; 003EA ;TPA$KEYST U.1128: .ASCII \ESCAPE\ ; 45 50 41 43 53 45 003EA .BYTE -1 ; FF 003F0 ;TPA$KEYST0 U.1133: .BLKB 0 ; 003F1 ;TPA$KEYST U.1135: .ASCII \FILE_PARAMETERS\ ; 52 41 50 5F 45 4C 49 46 003F1 ; 53 52 45 54 45 4D 41 003F9 .BYTE -1 ; FF 00400 ;TPA$KEYST0 U.1140: .BLKB 0 ; 00401 ;TPA$KEYST U.1142: .ASCII \INCOMPLETE_FILE_DISPOSITION\ ; 45 4C 50 4D 4F 43 4E 49 00401 ; 5F 45 4C 49 46 5F 45 54 00409 ; 54 49 53 4F 50 53 49 44 00411 ; 4E 4F 49 00419 .BYTE -1 ; FF 0041C ;TPA$KEYST0 U.1147: .BLKB 0 ; 0041D ;TPA$KEYST U.1149: .ASCII \LINE\ ; 45 4E 49 4C 0041D .BYTE -1 ; FF 00421 ;TPA$KEYST0 U.1154: .BLKB 0 ; 00422 ;TPA$KEYST U.1156: .ASCII \LOCAL_ECHO\ ; 43 45 5F 4C 41 43 4F 4C 00422 ; 4F 48 0042A .BYTE -1 ; FF 0042C ;TPA$KEYST0 U.1161: .BLKB 0 ; 0042D ;TPA$KEYST U.1163: .ASCII \PACKET\ ; 54 45 4B 43 41 50 0042D .BYTE -1 ; FF 00433 ;TPA$KEYST0 U.1168: .BLKB 0 ; 00434 ;TPA$KEYST U.1170: .ASCII \PARITY\ ; 59 54 49 52 41 50 00434 .BYTE -1 ; FF 0043A ;TPA$KEYST0 U.1175: .BLKB 0 ; 0043B ;TPA$KEYST U.1177: .ASCII \SEND\ ; 44 4E 45 53 0043B .BYTE -1 ; FF 0043F ;TPA$KEYST0 U.1182: .BLKB 0 ; 00440 ;TPA$KEYST U.1184: .ASCII \TIMING\ ; 47 4E 49 4D 49 54 00440 .BYTE -1 ; FF 00446 ;TPA$KEYST0 U.1189: .BLKB 0 ; 00447 ;TPA$KEYST U.1191: .ASCII \RECEIVE\ ; 45 56 49 45 43 45 52 00447 .BYTE -1 ; FF 0044E ;TPA$KEYST0 U.1196: .BLKB 0 ; 0044F ;TPA$KEYST U.1198: .ASCII \RETRY\ ; 59 52 54 45 52 0044F .BYTE -1 ; FF 00454 ;TPA$KEYST0 U.1203: .BLKB 0 ; 00455 ;TPA$KEYST U.1205: .ASCII \VERSION\ ; 4E 4F 49 53 52 45 56 00455 .BYTE -1 ; FF 0045C ;TPA$KEYST0 U.1210: .BLKB 0 ; 0045D ;TPA$KEYST U.1212: .ASCII \TRANSMIT\ ; 54 49 4D 53 4E 41 52 54 0045D .BYTE -1 ; FF 00465 ;TPA$KEYFILL U.1220: .BYTE -1 ; FF 00466 ;TPA$KEYST0 U.1221: .BLKB 0 ; 00467 ;TPA$KEYST U.1223: .ASCII \DEBUGGING\ ; 4E 49 47 47 55 42 45 44 00467 ; 47 0046F .BYTE -1 ; FF 00470 ;TPA$KEYST0 U.1227: .BLKB 0 ; 00471 ;TPA$KEYST U.1229: .ASCII \SESSION\ ; 4E 4F 49 53 53 45 53 00471 .BYTE -1 ; FF 00478 ;TPA$KEYST0 U.1233: .BLKB 0 ; 00479 ;TPA$KEYST U.1235: .ASCII \TRANSACTIONS\ ; 54 43 41 53 4E 41 52 54 00479 ; 53 4E 4F 49 00481 .BYTE -1 ; FF 00485 ;TPA$KEYFILL U.1242: .BYTE -1 ; FF 00486 ;TPA$KEYST0 U.1281: .BLKB 0 ; 00487 ;TPA$KEYST U.1283: .ASCII \DISPLAY\ ; 59 41 4C 50 53 49 44 00487 .BYTE -1 ; FF 0048E ;TPA$KEYFILL U.1291: .BYTE -1 ; FF 0048F U.1= P.AAA FNM_NORMAL== 1 FNM_FULL== 2 FNM_UNTRAN== 4 PR_MIN== 0 PR_NONE== 0 PR_MARK== 1 PR_EVEN== 2 PR_ODD== 3 PR_SPACE== 4 PR_MAX== 4 GC_MIN== 1 GC_EXIT== 1 GC_DIRECTORY== 2 GC_DISK_USAGE== 3 GC_DELETE== 4 GC_TYPE== 5 GC_HELP== 6 GC_LOGOUT== 7 GC_LGN== 8 GC_CONNECT== 9 GC_RENAME== 10 GC_COPY== 11 GC_WHO== 12 GC_SEND_MSG== 13 GC_STATUS== 14 GC_COMMAND== 15 GC_KERMIT== 16 GC_JOURNAL== 17 GC_VARIABLE== 18 GC_PROGRAM== 19 GC_MAX== 19 DP_FULL== 0 DP_HALF== 1 CHK_1CHAR== 49 CHK_2CHAR== 50 CHK_CRC== 51 MAX_MSG== 1002 U.38= P.AAC .EXTRN LIB$GET_INPUT, LIB$PUT_OUTPUT, LIB$TPARSE, LIB$CRC_TABLE, LIB$CRC, LIB$SIGNAL, LIB$ESTABLISH .EXTRN LIB$ATTACH, LIB$SPAWN, SEND_SWITCH, REC_SWITCH, DO_GENERIC, SERVER, SND_ERROR, MSG_INIT .EXTRN FILE_INIT, SY_INIT, TERM_INIT, TERM_OPEN, TERM_CLOSE, TERM_CONNECT, SET_TRANS_TERM .EXTRN COMND_TRANSMIT, TT_INIT, TT_TEXT, TT_NUMBER, TT_CHAR, TT_OUTPUT, TT_CRLF, RCV_PKT_SIZE .EXTRN RCV_NPAD, RCV_PADCHAR, RCV_TIMEOUT, RCV_EOL, RCV_QUOTE_CHR, RCV_8QUOTE_CHR, RCV_SOH .EXTRN SND_PKT_SIZE, SND_NPAD, SND_PADCHAR, SND_TIMEOUT, SND_EOL, SND_QUOTE_CHR, SND_SOH .EXTRN SRV_TIMEOUT, SET_REPT_CHR, SND_TOTAL_CHARS, RCV_TOTAL_CHARS, SND_DATA_CHARS, RCV_DATA_CHARS .EXTRN SMSG_TOTAL_CHARS, RMSG_TOTAL_CHARS, SMSG_DATA_CHARS, RMSG_DATA_CHARS, RCV_NAKS, SND_NAKS .EXTRN RMSG_NAKS, SMSG_NAKS, RCV_COUNT, SND_COUNT, RMSG_COUNT, SMSG_COUNT, XFR_TIME, TOTAL_TIME .EXTRN LAST_ERROR, TY_PKT, TY_FIL, GEN_1DATA, GEN_1SIZE, GEN_2DATA, GEN_2SIZE, GEN_3DATA .EXTRN GEN_3SIZE, FILE_SIZE, FILE_NAME, SI_RETRIES, PKT_RETRIES, DELAY, DEBUG_FLAG, CHKTYPE .EXTRN ABT_FLAG, IBM_CHAR, WARN_FLAG, FIL_NORMAL_FORM, PARITY_TYPE, ECHO_FLAG, CONNECT_FLAG .EXTRN FILE_BLOCKSIZE, FILE_BLOCKSIZE_SET, FILE_TYPE, FILE_DESC, SESSION_DESC, DEBUG_DESC .EXTRN TERM_DESC, TRANS_ECHO_FLAG, TRANS_DELAY, TERM_FLAG .PSECT $CODE$,NOWRT,2 ;MAIN_ROUTINE U.1302: .WORD ^M<R2,R3,R4,R5> ;Save R2,R3,R4,R5 2184 003C 00000 MOVAB G^U.1, R5 ;U.1, R5 55 00000000' 00 9E 00002 MOVAB G^ESCAPE_CHR, R4 ;ESCAPE_CHR, R4 54 00000000' 00 9E 00009 MOVAB G^U.60, R3 ;U.60, R3 53 00000000' 00 9E 00010 SUBL2 #4, SP ;#4, SP 5E 04 C2 00017 PUSHL R5 ;R5 2226 55 DD 0001A CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT 00000000G 00 01 FB 0001C MOVL R0, R2 ;R0, STATUS 52 50 D0 00023 CALLS #0, G^MSG_INIT ;#0, MSG_INIT 2227 00000000G 00 00 FB 00026 CALLS #0, G^TERM_INIT ;#0, TERM_INIT 2228 00000000G 00 00 FB 0002D CALLS #0, G^TT_INIT ;#0, TT_INIT 2229 00000000G 00 00 FB 00034 CALLS #0, G^FILE_INIT ;#0, FILE_INIT 2230 00000000G 00 00 FB 0003B CALLS #0, G^SY_INIT ;#0, SY_INIT 2231 00000000G 00 00 FB 00042 MOVL #29, (R4) ;#29, ESCAPE_CHR 2232 64 1D D0 00049 MOVZWL #33800, (SP) ;#33800, CRC_BIT_MASK 2236 6E 8408 8F 3C 0004C PUSHL R3 ;R3 2237 53 DD 00051 PUSHAB 4(SP) ;CRC_BIT_MASK 04 AE 9F 00053 CALLS #2, G^LIB$CRC_TABLE ;#2, LIB$CRC_TABLE 00000000G 00 02 FB 00056 PUSHAB G^U.37 ;U.37 2238 00000000V 00 9F 0005D CALLS #1, G^LIB$ESTABLISH ;#1, LIB$ESTABLISH 00000000G 00 01 FB 00063 MOVL #17694720, -160(R4) ;#17694720, TRANSACTION_DESC 2242 FF60 C4 010E0000 8F D0 0006A MOVAB -272(R3), -156(R4) ;TRANSACTION_NAME, - FF64 C4 FEF0 C3 9E 00073 ;TRANSACTION_DESC+4 MOVL #17694720, 64(R3) ;#17694720, TAK_FIL_DESC 2246 40 A3 010E0000 8F D0 0007A MOVAB 72(R3), 68(R3) ;TAK_FIL_NAME, TAK_FIL_DESC+4 44 A3 48 A3 9E 00082 MOVL #17694720, -140(R3) ;#17694720, PROMPT_DESC 2250 FF74 C3 010E0000 8F D0 00087 MOVAB -132(R3), -136(R3) ;PROMPT_TEXT, PROMPT_DESC+4 FF78 C3 FF7C C3 9E 00090 MOVQ #1, -(SP) ;#1, -(SP) 2254 7E 01 7D 00097 PUSHAB 56(R5) ;P.AAG 38 A5 9F 0009A PUSHAB 40(R5) ;P.AAE 28 A5 9F 0009D CALLS #4, G^U.4 ;#4, U.4 00000000V 00 04 FB 000A0 CALLS #0, G^U.2 ;#0, U.2 2258 00000000V 00 00 FB 000A7 MOVL R0, R2 ;R0, STATUS 52 50 D0 000AE BISL3 #268435456, -276(R3), R0 ;#268435456, FINAL_STATUS, R0 2259 FEEC C3 10000000 8F C9 000B1 ; 50 000BA RET ; 04 000BB ; Routine Size: 188 bytes, Routine Base: $CODE$ + 0000 ; 2261 1 %SBTTL 'COMND' ; 2262 1 ROUTINE COMND = ; 2263 1 ; 2264 1 !++ ; 2265 1 ! FUNCTIONAL DESCRIPTION: ; 2266 1 ! This routine will do the command scanning for KERMIT-32. It ; 2267 1 ! will call the correct routines to process the commands. ; 2268 1 ! ; 2269 1 ! CALLING SEQUENCE: ; 2270 1 ! ; 2271 1 ! COMND(); ; 2272 1 ! ; 2273 1 ! INPUT PARAMETERS: ; 2274 1 ! ; 2275 1 ! None. ; 2276 1 ! ; 2277 1 ! IMPLICIT INPUTS: ; 2278 1 ! ; 2279 1 ! None. ; 2280 1 ! ; 2281 1 ! OUTPUT PARAMETERS: ; 2282 1 ! ; 2283 1 ! None. ; 2284 1 ! ; 2285 1 ! IMPLICIT OUTPUTS: ; 2286 1 ! ; 2287 1 ! None. ; 2288 1 ! ; 2289 1 ! COMPLETION CODES: ; 2290 1 ! ; 2291 1 ! Return status from last command. ; 2292 1 ! ; 2293 1 ! SIDE EFFECTS: ; 2294 1 ! ; 2295 1 ! None. ; 2296 1 ! ; 2297 1 !-- ; 2298 1 ; 2299 2 BEGIN ; 2300 2 ; 2301 2 EXTERNAL ROUTINE ; 2302 2 GET_COMMAND, ! Get line from SYS$COMMAND ; 2303 2 LIB$GET_FOREIGN : ADDRESSING_MODE (GENERAL); ! Get command which started program ; 2304 2 ; 2305 2 LOCAL ; 2306 2 DESC : BLOCK [8, BYTE], ; 2307 2 CMD_BUF : VECTOR [80, BYTE, UNSIGNED], ; 2308 2 CMD_SIZE : UNSIGNED WORD, ; 2309 2 ONE_COMMAND, ! Only do one command ; 2310 2 STATUS : UNSIGNED LONG; ; 2311 2 ; 2312 2 ONE_COMMAND = FALSE; ! And many commands ; 2313 2 ! ; 2314 2 ! Initialize the command string descriptor ; 2315 2 ! ; 2316 2 INIT_STR_DESC (DESC, CMD_BUF, 80); ; 2317 2 ! ; 2318 2 ! Get the first command string. If we get something, then we will only ; 2319 2 ! want to perform one command, then exit. Otherwise, we will do commands ; 2320 2 ! until something one tells us to exit. ; 2321 2 ! ; 2322 2 STATUS = LIB$GET_FOREIGN (DESC, 0, CMD_SIZE, 0); ; 2323 2 ; 2324 2 IF .STATUS EQL RMS$_EOF THEN RETURN SS$_NORMAL; ; 2325 2 ; 2326 2 IF NOT .STATUS ; 2327 2 THEN ; 2328 3 BEGIN ; 2329 3 LIB$SIGNAL (.STATUS); ; 2330 3 RETURN .STATUS; ; 2331 2 END; ; 2332 2 ; 2333 2 IF .CMD_SIZE GTR 0 THEN ONE_COMMAND = TRUE; ; 2334 2 ; 2335 2 WHILE TRUE DO ; 2336 3 BEGIN ; 2337 3 ; 2338 3 IF .CMD_SIZE GTR 0 ; 2339 3 THEN ; 2340 4 BEGIN ; 2341 4 DESC [DSC$W_LENGTH] = .CMD_SIZE; ; 2342 4 ; 2343 4 IF .STATUS THEN STATUS = DO_COMND (DESC); ; 2344 4 ; 2345 4 IF .STATUS EQL KER_EXIT THEN RETURN SS$_NORMAL; ; 2346 4 ; 2347 4 IF NOT .STATUS AND .STATUS NEQ KER_TAKE_ERROR THEN COMND_ERROR (.STATUS); ; 2348 4 ; 2349 3 END; ; 2350 3 ; 2351 3 ! ; 2352 3 ! If we were given command when run, just exit after doing it ; 2353 3 ! ; 2354 3 ; 2355 3 IF .ONE_COMMAND THEN RETURN SS$_NORMAL; ; 2356 3 ; 2357 3 ! ; 2358 3 ! Initialize prompt if null ; 2359 3 ! ; 2360 3 ; 2361 3 IF .PROMPT_DESC [DSC$W_LENGTH] LEQ 0 ; 2362 3 THEN ; 2363 4 BEGIN ; 2364 4 CH$COPY (.DEFAULT_PROMPT [DSC$W_LENGTH], CH$PTR (.DEFAULT_PROMPT [DSC$A_POINTER]), 0, ; 2365 4 TEMP_LENGTH, CH$PTR (PROMPT_TEXT)); ; 2366 4 PROMPT_DESC = .DEFAULT_PROMPT [DSC$W_LENGTH]; ; 2367 3 END; ; 2368 3 ; 2369 3 DESC [DSC$W_LENGTH] = 80; ! Reset length ; 2370 3 STATUS = GET_COMMAND (DESC, PROMPT_DESC, CMD_SIZE, TRUE); ; 2371 3 ; 2372 3 IF .STATUS EQL RMS$_EOF THEN RETURN SS$_NORMAL; ; 2373 3 ! ; 2374 3 ! If there was an error then return the error code to the upper level ; 2375 3 ! ; 2376 3 IF NOT .STATUS ! Failing status? ; 2377 3 THEN ; 2378 3 RETURN .STATUS; ! Yes, return it ; 2379 3 ; 2380 2 END; ! End of WHILE TRUE DO BEGIN ; 2381 2 ; 2382 2 RETURN SS$_NORMAL; ; 2383 1 END; ! End of COMND .EXTRN GET_COMMAND, LIB$GET_FOREIGN ;COMND U.2: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9> ;Save R2,R3,R4,R5,R6,R7,R8,R9 2262 03FC 00000 MOVAB G^U.58, R9 ;U.58, R9 59 00000000' 00 9E 00002 MOVAB -92(SP), SP ;-92(SP), SP 5E A4 AE 9E 00009 CLRL R8 ;ONE_COMMAND 2312 58 D4 0000D MOVL #17694800, 84(SP) ;#17694800, DESC 2316 54 AE 010E0050 8F D0 0000F MOVAB 4(SP), 88(SP) ;CMD_BUF, DESC+4 58 AE 04 AE 9E 00017 CLRL -(SP) ;-(SP) 2322 7E D4 0001C PUSHAB 4(SP) ;CMD_SIZE 04 AE 9F 0001E CLRL -(SP) ;-(SP) 7E D4 00021 PUSHAB 96(SP) ;DESC 60 AE 9F 00023 CALLS #4, G^LIB$GET_FOREIGN ;#4, LIB$GET_FOREIGN 00000000G 00 04 FB 00026 MOVL R0, R7 ;R0, STATUS 57 50 D0 0002D CMPL R7, #98938 ;STATUS, #98938 2324 0001827A 8F 57 D1 00030 BEQL 4$ ;4$ 35 13 00037 BLBS R7, 1$ ;STATUS, 1$ 2326 0C 57 E8 00039 PUSHL R7 ;STATUS 2329 57 DD 0003C CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL 00000000G 00 01 FB 0003E BRW 7$ ;7$ 2330 0083 31 00045 1$: TSTW (SP) ;CMD_SIZE 2333 6E B5 00048 BEQL 2$ ;2$ 03 13 0004A MOVL #1, R8 ;#1, ONE_COMMAND 58 01 D0 0004C 2$: TSTW (SP) ;CMD_SIZE 2338 6E B5 0004F BEQL 5$ ;5$ 32 13 00051 MOVW (SP), 84(SP) ;CMD_SIZE, DESC 2341 54 AE 6E B0 00053 BLBC R7, 3$ ;STATUS, 3$ 2343 0D 57 E9 00057 PUSHAB 84(SP) ;DESC 54 AE 9F 0005A CALLS #1, G^U.5 ;#1, U.5 00000000V 00 01 FB 0005D MOVL R0, R7 ;R0, STATUS 57 50 D0 00064 3$: CMPL R7, #134316203 ;STATUS, #134316203 2345 080180AB 8F 57 D1 00067 4$: BEQL 8$ ;8$ 5F 13 0006E BLBS R7, 5$ ;STATUS, 5$ 2347 12 57 E8 00070 CMPL R7, #134316306 ;STATUS, #134316306 08018112 8F 57 D1 00073 BEQL 5$ ;5$ 09 13 0007A PUSHL R7 ;STATUS 57 DD 0007C CALLS #1, G^U.3 ;#1, U.3 00000000V 00 01 FB 0007E 5$: BLBS R8, 8$ ;ONE_COMMAND, 8$ 2355 47 58 E8 00085 TSTW (R9) ;PROMPT_DESC 2361 69 B5 00088 BNEQ 6$ ;6$ 1A 12 0008A MOVZWL G^U.38, R6 ;U.38, R6 2364 56 00000000' 00 3C 0008C MOVL G^U.38+4, R0 ;U.38+4, R0 50 00000000' 00 D0 00093 MOVC5 R6, (R0), #0, #132, 8(R9) ;R6, (R0), #0, #132, PROMPT_TEXT 2365 60 56 2C 0009A ; 0084 8F 00 0009D ; 08 A9 000A1 MOVL R6, (R9) ;R6, PROMPT_DESC 2366 69 56 D0 000A3 6$: MOVZBW #80, 84(SP) ;#80, DESC 2369 54 AE 50 8F 9B 000A6 PUSHL #1 ;#1 2370 01 DD 000AB PUSHAB 4(SP) ;CMD_SIZE 04 AE 9F 000AD PUSHL R9 ;R9 59 DD 000B0 PUSHAB 96(SP) ;DESC 60 AE 9F 000B2 CALLS #4, G^GET_COMMAND ;#4, GET_COMMAND 00000000G 00 04 FB 000B5 MOVL R0, R7 ;R0, STATUS 57 50 D0 000BC CMPL R7, #98938 ;STATUS, #98938 2372 0001827A 8F 57 D1 000BF BEQL 8$ ;8$ 07 13 000C6 BLBS R7, 2$ ;STATUS, 2$ 2376 84 57 E8 000C8 7$: MOVL R7, R0 ;STATUS, R0 2378 50 57 D0 000CB RET ; 04 000CE 8$: MOVL #1, R0 ;#1, R0 2382 50 01 D0 000CF RET ; 04 000D2 ; Routine Size: 211 bytes, Routine Base: $CODE$ + 00BC ; 2384 1 %SBTTL 'COMND_FILE - Perform take (indirect) file' ; 2385 1 ROUTINE COMND_FILE (TAKE_DESC, DEFAULT_DESC, OK_NONE, DISPLAY_FLAG) = ; 2386 1 ; 2387 1 !++ ; 2388 1 ! FUNCTIONAL DESCRIPTION: ; 2389 1 ! ; 2390 1 ! This routine will read a file of commands and perform them. If any ; 2391 1 ! error occurs, it will abort the command processing. ; 2392 1 ! ; 2393 1 ! CALLING SEQUENCE: ; 2394 1 ! ; 2395 1 ! STATUS = COMND_FILE (TAKE_DESC, DEFAULT_DESC, OK_NONE, DISPLAY_FLAG) ; 2396 1 ! ; 2397 1 ! INPUT PARAMETERS: ; 2398 1 ! ; 2399 1 ! TAKE_DESC - String descriptor of file specification ; 2400 1 ! DEFAULT_DESC - Default file specification ; 2401 1 ! OK_NONE - If true, return EOF if file does not exist, otherwise ; 2402 1 ! return error if file does not exist. ; 2403 1 ! DISPLAY_FLAG - If true display commands being executed ; 2404 1 ! ; 2405 1 ! IMPLICIT INPUTS: ; 2406 1 ! ; 2407 1 ! None. ; 2408 1 ! ; 2409 1 ! OUPTUT PARAMETERS: ; 2410 1 ! ; 2411 1 ! None. ; 2412 1 ! ; 2413 1 ! IMPLICIT OUTPUTS: ; 2414 1 ! ; 2415 1 ! None. ; 2416 1 ! ; 2417 1 ! COMPLETION CODES: ; 2418 1 ! ; 2419 1 ! Standard status values ; 2420 1 ! ; 2421 1 ! SIDE EFFECTS: ; 2422 1 ! ; 2423 1 ! None. ; 2424 1 ! ; 2425 1 !-- ; 2426 1 ; 2427 2 BEGIN ; 2428 2 ; 2429 2 EXTERNAL ROUTINE ; 2430 2 STR$UPCASE : ADDRESSING_MODE (GENERAL), ! Upcase a string ; 2431 2 LIB$GET_VM : ADDRESSING_MODE (GENERAL) NOVALUE, ; 2432 2 LIB$FREE_VM : ADDRESSING_MODE (GENERAL) NOVALUE; ; 2433 2 ; 2434 2 MAP ; 2435 2 TAKE_DESC : REF BLOCK [8, BYTE], ; 2436 2 DEFAULT_DESC : REF BLOCK [8, BYTE]; ! The args are descriptors ; 2437 2 ; 2438 2 LOCAL ; 2439 2 TAKE_FILE_DESC : BLOCK [8, BYTE], ! Descriptor for take file ; 2440 2 TAKE_FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)], ! Name of take file ; 2441 2 TAKE_FILE_FAB : $FAB_DECL, ! FAB for take file ; 2442 2 TAKE_FILE_RAB : $RAB_DECL, ! RAB for take file ; 2443 2 TAKE_FILE_XABFHC : $XABFHC_DECL, ! XAB for file header items ; 2444 2 TAKE_FILE_BADR, ! Address of take file buffer ; 2445 2 TAKE_FILE_BSIZ, ! Size of take file buffer ; 2446 2 TAKE_FILE_FADR, ! Address of fixed header buffer ; 2447 2 TAKE_FILE_FSIZ, ! size of fixed header buffer ; 2448 2 STATUS, ! Random status values ; 2449 2 CMD_DESC : BLOCK [8, BYTE]; ! Descriptor for command ; 2450 2 ; 2451 2 CH$COPY (.TAKE_DESC [DSC$W_LENGTH], CH$PTR (.TAKE_DESC [DSC$A_POINTER]), 0, MAX_FILE_NAME, ; 2452 2 CH$PTR (TAKE_FILE_NAME)); ; 2453 2 INIT_STR_DESC (TAKE_FILE_DESC, TAKE_FILE_NAME, .TAKE_DESC [DSC$W_LENGTH]); ; P 2454 2 $FAB_INIT (FAB = TAKE_FILE_FAB, FNA = TAKE_FILE_NAME, FNS = .TAKE_FILE_DESC [DSC$W_LENGTH], FAC = GET, ; 2455 2 XAB = TAKE_FILE_XABFHC, DNA = .DEFAULT_DESC [DSC$A_POINTER], DNS = .DEFAULT_DESC [DSC$W_LENGTH]); ; 2456 2 $XABFHC_INIT (XAB = TAKE_FILE_XABFHC); ; 2457 2 STATUS = $OPEN (FAB = TAKE_FILE_FAB); ; 2458 2 ; 2459 2 IF NOT .STATUS ; 2460 2 THEN ; 2461 3 BEGIN ; 2462 3 ; 2463 3 IF .STATUS EQL RMS$_FNF AND .OK_NONE THEN RETURN KER_TAKE_EOF; ; 2464 3 ; 2465 3 LIB$SIGNAL (.STATUS); ; 2466 3 RETURN KER_TAKE_ERROR; ; 2467 2 END; ; 2468 2 ; 2469 2 ! ; 2470 2 ! Allocate a buffer ; 2471 2 ! ; 2472 2 TAKE_FILE_BSIZ = .TAKE_FILE_XABFHC [XAB$W_LRL]; ; 2473 2 ; 2474 2 IF .TAKE_FILE_BSIZ EQL 0 THEN TAKE_FILE_BSIZ = MAX_REC_LENGTH; ; 2475 2 ; 2476 2 LIB$GET_VM (TAKE_FILE_BSIZ, TAKE_FILE_BADR); ; 2477 2 INIT_STR_DESC (CMD_DESC, .TAKE_FILE_BADR, .TAKE_FILE_BSIZ); ; 2478 2 ! ; 2479 2 ! Determine if we need a buffer for the fixed control area ; 2480 2 ! ; 2481 2 TAKE_FILE_FSIZ = .TAKE_FILE_FAB [FAB$B_FSZ]; ; 2482 2 ; 2483 2 IF .TAKE_FILE_FSIZ NEQ 0 THEN LIB$GET_VM (TAKE_FILE_FSIZ, TAKE_FILE_FADR); ; 2484 2 ; 2485 2 ! ; 2486 2 ! Initialize the RAB for the $CONNECT RMS call ; 2487 2 ! ; P 2488 2 $RAB_INIT (RAB = TAKE_FILE_RAB, FAB = TAKE_FILE_FAB, RAC = SEQ, ROP = NLK, UBF = .TAKE_FILE_BADR, ; 2489 2 USZ = .TAKE_FILE_BSIZ); ; 2490 2 ; 2491 2 IF .TAKE_FILE_FSIZ NEQ 0 THEN TAKE_FILE_RAB [RAB$L_RHB] = .TAKE_FILE_FADR; ; 2492 2 ; 2493 2 STATUS = $CONNECT (RAB = TAKE_FILE_RAB); ; 2494 2 ; 2495 2 IF NOT .STATUS ; 2496 2 THEN ; 2497 3 BEGIN ; 2498 3 LIB$SIGNAL (.STATUS); ; 2499 3 LIB$FREE_VM (TAKE_FILE_BSIZ, TAKE_FILE_BADR); ; 2500 3 ; 2501 3 IF .TAKE_FILE_FSIZ NEQ 0 THEN LIB$FREE_VM (TAKE_FILE_FSIZ, TAKE_FILE_FADR); ; 2502 3 ; 2503 3 RETURN KER_TAKE_ERROR; ; 2504 2 END; ; 2505 2 ; 2506 2 WHILE (STATUS = $GET (RAB = TAKE_FILE_RAB)) DO ; 2507 3 BEGIN ; 2508 3 ; 2509 3 IF .TAKE_FILE_RAB [RAB$W_RSZ] GTR 0 ; 2510 3 THEN ; 2511 4 BEGIN ; 2512 4 CMD_DESC [DSC$W_LENGTH] = .TAKE_FILE_RAB [RAB$W_RSZ]; ; 2513 4 STATUS = STR$UPCASE (CMD_DESC, CMD_DESC); ; 2514 4 ; 2515 4 IF .DISPLAY_FLAG THEN LIB$PUT_OUTPUT (CMD_DESC); ; 2516 4 ; 2517 4 STATUS = DO_COMND (CMD_DESC); ; 2518 4 ; 2519 4 IF NOT .STATUS ; 2520 4 THEN ; 2521 5 BEGIN ; 2522 5 ; 2523 5 IF .STATUS NEQ KER_TAKE_ERROR ; 2524 5 THEN ; 2525 6 BEGIN ; 2526 6 COMND_ERROR (.STATUS); ; 2527 6 LIB$PUT_OUTPUT (CMD_DESC); ; 2528 6 STATUS = KER_TAKE_ERROR; ! Indicate we should abort back ; 2529 5 END; ; 2530 5 ; 2531 5 EXITLOOP; ; 2532 4 END; ; 2533 4 ; 2534 3 END; ; 2535 3 ; 2536 2 END; ! End of WHILE TRUE DO BEGIN ; 2537 2 ; 2538 2 ! ; 2539 2 ! When the loop exits, we got some kind of error. Complain unless end of file. ; 2540 2 ! ; 2541 2 ; 2542 2 IF .STATUS EQL RMS$_EOF THEN STATUS = KER_TAKE_EOF; ; 2543 2 ; 2544 2 IF .STATUS NEQ KER_EXIT AND .STATUS NEQ KER_TAKE_EOF AND .STATUS NEQ KER_TAKE_ERROR ; 2545 2 THEN ; 2546 2 LIB$SIGNAL (.STATUS); ; 2547 2 ; 2548 2 ! ; 2549 2 ! Close the file ; 2550 2 ! ; 2551 2 $DISCONNECT (RAB = TAKE_FILE_RAB); ; 2552 2 $CLOSE (FAB = TAKE_FILE_FAB); ; 2553 2 ! ; 2554 2 ! Return any buffers ; 2555 2 ! ; 2556 2 LIB$FREE_VM (TAKE_FILE_BSIZ, TAKE_FILE_BADR); ; 2557 2 ; 2558 2 IF .TAKE_FILE_FSIZ NEQ 0 THEN LIB$FREE_VM (TAKE_FILE_FSIZ, TAKE_FILE_FADR); ; 2559 2 ; 2560 2 RETURN .STATUS; ; 2561 1 END; ! End of COMND_FILE .EXTRN STR$UPCASE, LIB$GET_VM, LIB$FREE_VM, SYS$OPEN, SYS$CONNECT, SYS$GET, SYS$DISCONNECT .EXTRN SYS$CLOSE ;COMND_FILE U.4: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10> ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10 2385 07FC 00000 MOVAB G^LIB$PUT_OUTPUT, R10 ;LIB$PUT_OUTPUT, R10 5A 00000000G 00 9E 00002 MOVAB G^LIB$GET_VM, R9 ;LIB$GET_VM, R9 59 00000000G 00 9E 00009 MOVAB G^LIB$SIGNAL, R8 ;LIB$SIGNAL, R8 58 00000000G 00 9E 00010 MOVAB G^LIB$FREE_VM, R7 ;LIB$FREE_VM, R7 57 00000000G 00 9E 00017 MOVAB -356(SP), SP ;-356(SP), SP 5E FE9C CE 9E 0001E MOVL 4(AP), R6 ;TAKE_DESC, R6 2451 56 04 AC D0 00023 MOVC5 (R6), @4(R6), #0, #132, -140(FP) ;(R6), @4(R6), #0, #132, - 2452 04 B6 66 2C 00027 ;TAKE_FILE_NAME 0084 8F 00 0002B ; FF74 CD 0002F MOVW #270, -6(FP) ;#270, TAKE_FILE_DESC+2 2453 FA AD 010E 8F B0 00032 MOVW (R6), -8(FP) ;(R6), TAKE_FILE_DESC F8 AD 66 B0 00038 MOVAB -140(FP), -4(FP) ;TAKE_FILE_NAME, TAKE_FILE_DESC+4 FC AD FF74 CD 9E 0003C MOVC5 #0, (SP), #0, #80, 136(SP) ;#0, (SP), #0, #80, $RMS_PTR 2455 6E 00 2C 00042 ; 0050 8F 00 00045 ; 0088 CE 00049 MOVW #20483, 136(SP) ;#20483, $RMS_PTR 0088 CE 5003 8F B0 0004C MOVB #2, 158(SP) ;#2, $RMS_PTR+22 009E CE 02 90 00053 MOVB #2, 167(SP) ;#2, $RMS_PTR+31 00A7 CE 02 90 00058 MOVAB 24(SP), 172(SP) ;TAKE_FILE_XABFHC, $RMS_PTR+36 00AC CE 18 AE 9E 0005D MOVAB -140(FP), -176(FP) ;TAKE_FILE_NAME, $RMS_PTR+44 FF50 CD FF74 CD 9E 00063 MOVL 8(AP), R0 ;DEFAULT_DESC, R0 50 08 AC D0 0006A MOVL 4(R0), -172(FP) ;4(R0), $RMS_PTR+48 FF54 CD 04 A0 D0 0006E MOVB -8(FP), -168(FP) ;TAKE_FILE_DESC, $RMS_PTR+52 FF58 CD F8 AD 90 00074 MOVB (R0), -167(FP) ;(R0), $RMS_PTR+53 FF59 CD 60 90 0007A MOVC5 #0, (SP), #0, #44, 24(SP) ;#0, (SP), #0, #44, $RMS_PTR 2456 6E 00 2C 0007F ; 2C 00 00082 ; 18 AE 00084 MOVW #11293, 24(SP) ;#11293, $RMS_PTR 18 AE 2C1D 8F B0 00086 PUSHAB 136(SP) ;TAKE_FILE_FAB 2457 0088 CE 9F 0008C CALLS #1, G^SYS$OPEN ;#1, SYS$OPEN 00000000G 00 01 FB 00090 MOVL R0, R6 ;R0, STATUS 56 50 D0 00097 BLBS R6, 2$ ;STATUS, 2$ 2459 1D 56 E8 0009A CMPL R6, #98962 ;STATUS, #98962 2463 00018292 8F 56 D1 0009D BNEQ 1$ ;1$ 0C 12 000A4 BLBC 12(AP), 1$ ;OK_NONE, 1$ 08 0C AC E9 000A6 MOVL #134316299, R0 ;#134316299, R0 50 0801810B 8F D0 000AA RET ; 04 000B1 1$: PUSHL R6 ;STATUS 2465 56 DD 000B2 CALLS #1, (R8) ;#1, LIB$SIGNAL 68 01 FB 000B4 BRW 6$ ;6$ 2466 0096 31 000B7 2$: MOVZWL 34(SP), 4(SP) ;TAKE_FILE_XABFHC+10, TAKE_FILE_BSIZ 2472 04 AE 22 AE 3C 000BA BNEQ 3$ ;3$ 2474 06 12 000BF MOVZWL #4096, 4(SP) ;#4096, TAKE_FILE_BSIZ 04 AE 1000 8F 3C 000C1 3$: PUSHL SP ;SP 2476 5E DD 000C7 PUSHAB 8(SP) ;TAKE_FILE_BSIZ 08 AE 9F 000C9 CALLS #2, (R9) ;#2, LIB$GET_VM 69 02 FB 000CC MOVW #270, 18(SP) ;#270, CMD_DESC+2 2477 12 AE 010E 8F B0 000CF MOVW 4(SP), 16(SP) ;TAKE_FILE_BSIZ, CMD_DESC 10 AE 04 AE B0 000D5 MOVL (SP), 20(SP) ;TAKE_FILE_BADR, CMD_DESC+4 14 AE 6E D0 000DA MOVZBL -157(FP), 12(SP) ;TAKE_FILE_FAB+63, TAKE_FILE_FSIZ 2481 0C AE FF63 CD 9A 000DE BEQL 4$ ;4$ 2483 09 13 000E4 PUSHAB 8(SP) ;TAKE_FILE_FADR 08 AE 9F 000E6 PUSHAB 16(SP) ;TAKE_FILE_FSIZ 10 AE 9F 000E9 CALLS #2, (R9) ;#2, LIB$GET_VM 69 02 FB 000EC 4$: MOVC5 #0, (SP), #0, #68, 68(SP) ;#0, (SP), #0, #68, $RMS_PTR 2489 6E 00 2C 000EF ; 0044 8F 00 000F2 ; 44 AE 000F6 MOVW #17409, 68(SP) ;#17409, $RMS_PTR 44 AE 4401 8F B0 000F8 MOVL #1048576, 72(SP) ;#1048576, $RMS_PTR+4 48 AE 00100000 8F D0 000FE CLRB 98(SP) ;$RMS_PTR+30 62 AE 94 00106 MOVW 4(SP), 100(SP) ;TAKE_FILE_BSIZ, $RMS_PTR+32 64 AE 04 AE B0 00109 MOVL (SP), 104(SP) ;TAKE_FILE_BADR, $RMS_PTR+36 68 AE 6E D0 0010E MOVAB 136(SP), 128(SP) ;TAKE_FILE_FAB, $RMS_PTR+60 0080 CE 0088 CE 9E 00112 CLRL R2 ;R2 2491 52 D4 00119 TSTL 12(SP) ;TAKE_FILE_FSIZ 0C AE D5 0011B BEQL 5$ ;5$ 07 13 0011E INCL R2 ;R2 52 D6 00120 MOVL 8(SP), 112(SP) ;TAKE_FILE_FADR, TAKE_FILE_RAB+44 70 AE 08 AE D0 00122 5$: PUSHAB 68(SP) ;TAKE_FILE_RAB 2493 44 AE 9F 00127 CALLS #1, G^SYS$CONNECT ;#1, SYS$CONNECT 00000000G 00 01 FB 0012A MOVL R0, R6 ;R0, STATUS 56 50 D0 00131 BLBS R6, 7$ ;STATUS, 7$ 2495 21 56 E8 00134 PUSHL R6 ;STATUS 2498 56 DD 00137 CALLS #1, (R8) ;#1, LIB$SIGNAL 68 01 FB 00139 PUSHL SP ;SP 2499 5E DD 0013C PUSHAB 8(SP) ;TAKE_FILE_BSIZ 08 AE 9F 0013E CALLS #2, (R7) ;#2, LIB$FREE_VM 67 02 FB 00141 BLBC R2, 6$ ;R2, 6$ 2501 09 52 E9 00144 PUSHAB 8(SP) ;TAKE_FILE_FADR 08 AE 9F 00147 PUSHAB 16(SP) ;TAKE_FILE_FSIZ 10 AE 9F 0014A CALLS #2, (R7) ;#2, LIB$FREE_VM 67 02 FB 0014D 6$: MOVL #134316306, R0 ;#134316306, R0 2503 50 08018112 8F D0 00150 RET ; 04 00157 7$: PUSHAB 68(SP) ;TAKE_FILE_RAB 2506 44 AE 9F 00158 CALLS #1, G^SYS$GET ;#1, SYS$GET 00000000G 00 01 FB 0015B MOVL R0, R6 ;R0, STATUS 56 50 D0 00162 BLBC R6, 9$ ;STATUS, 9$ 53 56 E9 00165 TSTW 102(SP) ;TAKE_FILE_RAB+34 2509 66 AE B5 00168 BEQL 7$ ;7$ EB 13 0016B MOVW 102(SP), 16(SP) ;TAKE_FILE_RAB+34, CMD_DESC 2512 10 AE 66 AE B0 0016D PUSHAB 16(SP) ;CMD_DESC 2513 10 AE 9F 00172 PUSHAB 20(SP) ;CMD_DESC 14 AE 9F 00175 CALLS #2, G^STR$UPCASE ;#2, STR$UPCASE 00000000G 00 02 FB 00178 MOVL R0, R6 ;R0, STATUS 56 50 D0 0017F BLBC 16(AP), 8$ ;DISPLAY_FLAG, 8$ 2515 06 10 AC E9 00182 PUSHAB 16(SP) ;CMD_DESC 10 AE 9F 00186 CALLS #1, (R10) ;#1, LIB$PUT_OUTPUT 6A 01 FB 00189 8$: PUSHAB 16(SP) ;CMD_DESC 2517 10 AE 9F 0018C CALLS #1, G^U.5 ;#1, U.5 00000000V 00 01 FB 0018F MOVL R0, R6 ;R0, STATUS 56 50 D0 00196 BLBS R6, 7$ ;STATUS, 7$ 2519 BC 56 E8 00199 CMPL R6, #134316306 ;STATUS, #134316306 2523 08018112 8F 56 D1 0019C BEQL 9$ ;9$ 16 13 001A3 PUSHL R6 ;STATUS 2526 56 DD 001A5 CALLS #1, G^U.3 ;#1, U.3 00000000V 00 01 FB 001A7 PUSHAB 16(SP) ;CMD_DESC 2527 10 AE 9F 001AE CALLS #1, (R10) ;#1, LIB$PUT_OUTPUT 6A 01 FB 001B1 MOVL #134316306, R6 ;#134316306, STATUS 2528 56 08018112 8F D0 001B4 9$: CMPL R6, #98938 ;STATUS, #98938 2542 0001827A 8F 56 D1 001BB BNEQ 10$ ;10$ 07 12 001C2 MOVL #134316299, R6 ;#134316299, STATUS 56 0801810B 8F D0 001C4 10$: CMPL R6, #134316203 ;STATUS, #134316203 2544 080180AB 8F 56 D1 001CB BEQL 11$ ;11$ 17 13 001D2 CMPL R6, #134316299 ;STATUS, #134316299 0801810B 8F 56 D1 001D4 BEQL 11$ ;11$ 0E 13 001DB CMPL R6, #134316306 ;STATUS, #134316306 08018112 8F 56 D1 001DD BEQL 11$ ;11$ 05 13 001E4 PUSHL R6 ;STATUS 2546 56 DD 001E6 CALLS #1, (R8) ;#1, LIB$SIGNAL 68 01 FB 001E8 11$: PUSHAB 68(SP) ;TAKE_FILE_RAB 2551 44 AE 9F 001EB CALLS #1, G^SYS$DISCONNECT ;#1, SYS$DISCONNECT 00000000G 00 01 FB 001EE PUSHAB 136(SP) ;TAKE_FILE_FAB 2552 0088 CE 9F 001F5 CALLS #1, G^SYS$CLOSE ;#1, SYS$CLOSE 00000000G 00 01 FB 001F9 PUSHL SP ;SP 2556 5E DD 00200 PUSHAB 8(SP) ;TAKE_FILE_BSIZ 08 AE 9F 00202 CALLS #2, (R7) ;#2, LIB$FREE_VM 67 02 FB 00205 TSTL 12(SP) ;TAKE_FILE_FSIZ 2558 0C AE D5 00208 BEQL 12$ ;12$ 09 13 0020B PUSHAB 8(SP) ;TAKE_FILE_FADR 08 AE 9F 0020D PUSHAB 16(SP) ;TAKE_FILE_FSIZ 10 AE 9F 00210 CALLS #2, (R7) ;#2, LIB$FREE_VM 67 02 FB 00213 12$: MOVL R6, R0 ;STATUS, R0 2560 50 56 D0 00216 RET ; 04 00219 ; Routine Size: 538 bytes, Routine Base: $CODE$ + 018F ; 2562 1 %SBTTL 'COMND_ERROR - Give error message for command' ; 2563 1 ROUTINE COMND_ERROR (STATUS) : NOVALUE = ; 2564 1 ; 2565 1 !++ ; 2566 1 ! FUNCTIONAL DESCRIPTION: ; 2567 1 ! ; 2568 1 ! This routine will issue an error message for a command parsing error. ; 2569 1 ! ; 2570 1 ! CALLING SEQUENCE: ; 2571 1 ! ; 2572 1 ! COMND_ERROR (.STATUS); ; 2573 1 ! ; 2574 1 ! INPUT PARAMETERS: ; 2575 1 ! ; 2576 1 ! STATUS - The status value returned from DO_COMND ; 2577 1 ! ; 2578 1 ! IMPLICIT INPUTS: ; 2579 1 ! ; 2580 1 ! None. ; 2581 1 ! ; 2582 1 ! OUPTUT PARAMETERS: ; 2583 1 ! ; 2584 1 ! None. ; 2585 1 ! ; 2586 1 ! IMPLICIT OUTPUTS: ; 2587 1 ! ; 2588 1 ! None. ; 2589 1 ! ; 2590 1 ! COMPLETION CODES: ; 2591 1 ! ; 2592 1 ! None. ; 2593 1 ! ; 2594 1 ! SIDE EFFECTS: ; 2595 1 ! ; 2596 1 ! None. ; 2597 1 ! ; 2598 1 !-- ; 2599 1 ; 2600 2 BEGIN ; 2601 2 ; 2602 2 IF .STATUS EQL KER_AMBIGKEY OR .STATUS EQL KER_UNKNOWKEY ; 2603 2 THEN ; 2604 2 LIB$SIGNAL (.STATUS, 1, ; 2605 2 TPARSE_BLOCK [TPA$L_TOKENCNT]) ; 2606 2 ELSE ; 2607 3 BEGIN ; 2608 3 ; 2609 3 EXTERNAL LITERAL ; 2610 3 LIB$_SYNTAXERR; ; 2611 3 ; 2612 3 IF .STATUS EQL LIB$_SYNTAXERR ; 2613 3 THEN ; 2614 3 LIB$SIGNAL (KER_CMDERR, 1, TPARSE_BLOCK [TPA$L_STRINGCNT]) ; 2615 3 ELSE ; 2616 3 LIB$SIGNAL (.STATUS); ; 2617 3 ; 2618 2 END; ; 2619 2 ; 2620 1 END; ! End of COMND_ERROR .EXTRN LIB$_SYNTAXERR ;COMND_ERROR U.3: .WORD ^M<R2> ;Save R2 2563 0004 00000 MOVAB G^LIB$SIGNAL, R2 ;LIB$SIGNAL, R2 52 00000000G 00 9E 00002 MOVL 4(AP), R0 ;STATUS, R0 2602 50 04 AC D0 00009 CMPL R0, #134316282 ;R0, #134316282 080180FA 8F 50 D1 0000D BEQL 1$ ;1$ 09 13 00014 CMPL R0, #134316290 ;R0, #134316290 08018102 8F 50 D1 00016 BNEQ 2$ ;2$ 0C 12 0001D 1$: PUSHAB G^U.47+16 ;U.47+16 2605 00000000' 00 9F 0001F PUSHL #1 ;#1 2604 01 DD 00025 PUSHL R0 ;R0 50 DD 00027 BRB 3$ ;3$ 17 11 00029 2$: CMPL R0, #LIB$_SYNTAXERR ;R0, #LIB$_SYNTAXERR 2612 00000000G 8F 50 D1 0002B BNEQ 4$ ;4$ 12 12 00032 PUSHAB G^U.47+8 ;U.47+8 2614 00000000' 00 9F 00034 PUSHL #1 ;#1 01 DD 0003A PUSHL #134316058 ;#134316058 0801801A 8F DD 0003C 3$: CALLS #3, (R2) ;#3, LIB$SIGNAL 62 03 FB 00042 RET ; 04 00045 4$: PUSHL R0 ;R0 2616 50 DD 00046 CALLS #1, (R2) ;#1, LIB$SIGNAL 62 01 FB 00048 RET ; 2620 04 0004B ; Routine Size: 76 bytes, Routine Base: $CODE$ + 03A9 ; 2621 1 %SBTTL 'DO_COMND' ; 2622 1 ROUTINE DO_COMND (CMD_DESC) = ; 2623 1 ; 2624 1 !++ ; 2625 1 ! FUNCTIONAL DESCRIPTION: ; 2626 1 ! This routine will parse and process one Kermit command. ; 2627 1 ! ; 2628 1 ! CALLING SEQUENCE: ; 2629 1 ! ; 2630 1 ! STATUS = DO_COMND(CMD_DESC); ; 2631 1 ! ; 2632 1 ! INPUT PARAMETERS: ; 2633 1 ! ; 2634 1 ! CMD_DESC - Descriptor of command string ; 2635 1 ! ; 2636 1 ! IMPLICIT INPUTS: ; 2637 1 ! ; 2638 1 ! None. ; 2639 1 ! ; 2640 1 ! OUTPUT PARAMETERS: ; 2641 1 ! ; 2642 1 ! None. ; 2643 1 ! ; 2644 1 ! IMPLICIT OUTPUTS: ; 2645 1 ! ; 2646 1 ! None. ; 2647 1 ! ; 2648 1 ! COMPLETION CODES: ; 2649 1 ! ; 2650 1 ! None. ; 2651 1 ! ; 2652 1 ! SIDE EFFECTS: ; 2653 1 ! ; 2654 1 ! None. ; 2655 1 ! ; 2656 1 !-- ; 2657 1 ; 2658 2 BEGIN ; 2659 2 ; 2660 2 BIND ; 2661 2 SERVER_TEXT = %ASCID'Kermit Server running on VAX/VMS host. Please type your escape sequence to', ; 2662 2 SERVER_TEXT_1 = %ASCID' return to your local machine. Shut down the server by typing the Kermit BYE', ; 2663 2 SERVER_TEXT_2 = %ASCID' command on your local machine.', ; 2664 2 PUSH_TEXT = %ASCID' Type LOGOUT to return to VMS Kermit'; ; 2665 2 ; 2666 2 MAP ; 2667 2 CMD_DESC : REF BLOCK [8, BYTE]; ! Descriptor for command ; 2668 2 ; 2669 2 LOCAL ; 2670 2 STATUS : UNSIGNED LONG; ; 2671 2 ; 2672 2 ! Initialize some per-command data areas. ; 2673 2 INIT_STR_DESC (TEMP_DESC, TEMP_NAME, 0); ; 2674 2 COMMAND = 0; ; 2675 2 SHOW_TYPE = 0; ; 2676 2 REM_TYPE = 0; ; 2677 2 FILE_SIZE = 0; ; 2678 2 ALT_FILE_SIZE = 0; ; 2679 2 GEN_1SIZE = 0; ; 2680 2 GEN_2SIZE = 0; ; 2681 2 GEN_3SIZE = 0; ; 2682 2 CONNECT_FLAG = FALSE; ! Assume not connected ; 2683 2 TAKE_DISPLAY = 0; ; 2684 2 TPARSE_BLOCK [TPA$L_STRINGCNT] = .CMD_DESC [DSC$W_LENGTH]; ; 2685 2 TPARSE_BLOCK [TPA$L_STRINGPTR] = .CMD_DESC [DSC$A_POINTER]; ; 2686 2 TPARSE_BLOCK [TPA$V_BLANKS] = 0; ! Ignore blanks ; 2687 2 STATUS = LIB$TPARSE (TPARSE_BLOCK, KERMIT_STATE, KERMIT_KEY); ; 2688 2 ; 2689 2 IF .STATUS ; 2690 2 THEN ; 2691 3 BEGIN ; 2692 3 FILE_SIZE = .FILE_DESC [DSC$W_LENGTH]; ! Copy length in case needed ; 2693 3 ; 2694 3 CASE .COMMAND FROM CMD_MIN TO CMD_MAX OF ; 2695 3 SET ; 2696 3 ; 2697 3 [CMD_BYE] : ; 2698 4 BEGIN ; 2699 4 ; 2700 5 IF (STATUS = TERM_OPEN (TRUE)) ! Open the terminal ; 2701 4 THEN ; 2702 5 BEGIN ; 2703 5 ; 2704 5 IF NOT .CONNECT_FLAG THEN DO_GENERIC (GC_LOGOUT) ELSE STATUS = KER_LOCONLY; ; 2705 5 ; 2706 5 TERM_CLOSE () ; 2707 4 END; ; 2708 4 ; 2709 4 IF NOT .STATUS THEN RETURN .STATUS ELSE RETURN KER_EXIT; ; 2710 4 ; 2711 3 END; ; 2712 3 ; 2713 3 [CMD_CONN] : ; 2714 3 TERM_CONNECT (); ; 2715 3 ; 2716 3 [CMD_EXIT] : ; 2717 3 RETURN KER_EXIT; ; 2718 3 ; 2719 3 [CMD_FINISH] : ; 2720 3 ; 2721 4 IF (STATUS = TERM_OPEN (TRUE)) ! Open the terminal ; 2722 3 THEN ; 2723 4 BEGIN ; 2724 4 ; 2725 4 IF NOT .CONNECT_FLAG THEN DO_GENERIC (GC_EXIT) ELSE STATUS = KER_LOCONLY; ; 2726 4 ; 2727 4 TERM_CLOSE () ; 2728 3 END; ; 2729 3 ; 2730 3 [CMD_GET] : ; 2731 3 ; 2732 4 IF (STATUS = TERM_OPEN (TRUE)) ! Open the terminal ; 2733 3 THEN ; 2734 4 BEGIN ; 2735 4 ; 2736 4 IF NOT .CONNECT_FLAG THEN REC_SWITCH () ELSE STATUS = KER_LOCONLY; ; 2737 4 ; 2738 4 TERM_CLOSE (); ; 2739 3 END; ; 2740 3 ; 2741 3 [CMD_HELP] : ; 2742 3 COMND_HELP (); ; 2743 3 ; 2744 3 [CMD_LOGOUT] : ; 2745 3 ; 2746 4 IF (STATUS = TERM_OPEN (TRUE)) ! Open the terminal ; 2747 3 THEN ; 2748 4 BEGIN ; 2749 4 ; 2750 4 IF NOT .CONNECT_FLAG THEN DO_GENERIC (GC_LOGOUT) ELSE STATUS = KER_LOCONLY; ; 2751 4 ; 2752 4 TERM_CLOSE () ; 2753 3 END; ; 2754 3 ; 2755 3 [CMD_RECEIVE] : ; 2756 3 ; 2757 4 IF (STATUS = TERM_OPEN (TRUE)) ! Open the terminal ; 2758 3 THEN ; 2759 4 BEGIN ; 2760 4 FILE_SIZE = 0; ! No file to request ; 2761 4 REC_SWITCH (); ; 2762 4 TERM_CLOSE (); ; 2763 3 END; ; 2764 3 ; 2765 3 [CMD_REMOTE] : ; 2766 3 COMND_REMOTE (); ; 2767 3 ; 2768 3 [CMD_LOCAL] : ; 2769 3 COMND_LOCAL (); ; 2770 3 ; 2771 3 [CMD_PUSH] : ; 2772 4 BEGIN ; 2773 4 ; 2774 4 OWN ; 2775 4 PID : INITIAL (0); ; 2776 4 ; 2777 4 LIB$PUT_OUTPUT (PUSH_TEXT); ; 2778 4 ; 2779 4 IF .PID NEQ 0 ; 2780 4 THEN ; 2781 5 BEGIN ; 2782 5 STATUS = LIB$ATTACH (PID); ; 2783 5 ; 2784 5 IF NOT .STATUS THEN PID = 0; ; 2785 5 ; 2786 4 END; ; 2787 4 ; 2788 4 IF .PID EQL 0 ; 2789 4 THEN STATUS = LIB$SPAWN (0, 0, 0, 0, 0, PID); ! Just spawn a DCL ; 2790 4 ; 2791 3 END; ; 2792 3 ; 2793 3 [CMD_SEND] : ; 2794 4 BEGIN ; 2795 4 ; 2796 4 EXTERNAL ROUTINE ; 2797 4 FILE_OPEN, ! Open file routine ; 2798 4 FILE_CLOSE; ! Close file routine ; 2799 4 ; 2800 4 LOCAL ; 2801 4 SAVE_FILE_NAME : VECTOR [CH$ALLOCATION (MAX_FILE_NAME)], ; 2802 4 SAVE_FILE_SIZE, ; 2803 4 SAVE_TY_FIL; ; 2804 4 ; 2805 4 SAVE_TY_FIL = .TY_FIL; ! Save current type out flag ; 2806 4 TY_FIL = FALSE; ! Suppress type out of names ; 2807 4 SAVE_FILE_SIZE = .FILE_SIZE; ! Save the file name size ; 2808 4 ; 2809 4 CH$MOVE((.FILE_SIZE),CH$PTR(FILE_NAME), ; 2810 4 CH$PTR(SAVE_FILE_NAME)); ; 2811 4 ; 2812 4 IF FILE_OPEN (FNC_READ) ; 2813 4 THEN ; 2814 5 BEGIN ; 2815 5 FILE_SIZE = .SAVE_FILE_SIZE; ! Reset the file name size ; 2816 5 CH$MOVE(.FILE_SIZE,CH$PTR(SAVE_FILE_NAME), ; 2817 5 CH$PTR(FILE_NAME)); ; 2818 5 ; 2819 5 FILE_CLOSE (FALSE); ; 2820 5 TY_FIL = .SAVE_TY_FIL; ! Reset type out flag ; 2821 5 ; 2822 6 IF (STATUS = TERM_OPEN (TRUE)) ! Open the terminal ; 2823 5 THEN ; 2824 6 BEGIN ; 2825 6 SEND_SWITCH (); ; 2826 6 TERM_CLOSE (); ; 2827 5 END; ; 2828 5 ; 2829 5 END ; 2830 4 ELSE ; 2831 4 TY_FIL = .SAVE_TY_FIL; ! Reset type out flag ; 2832 4 ; 2833 3 END; ; 2834 3 ; 2835 3 [CMD_SERVER] : ; 2836 4 BEGIN ; 2837 4 LIB$PUT_OUTPUT (SERVER_TEXT); ; 2838 4 LIB$PUT_OUTPUT (SERVER_TEXT_1); ; 2839 4 LIB$PUT_OUTPUT (SERVER_TEXT_2); ; 2840 4 ; 2841 5 IF (STATUS = TERM_OPEN (TRUE)) ! Open the terminal ; 2842 4 THEN ; 2843 5 BEGIN ; 2844 5 STATUS = SERVER (); ; 2845 5 TERM_CLOSE (); ; 2846 5 RETURN KER_NORMAL; ; 2847 5 ; 2848 4 END; ; 2849 4 ; 2850 3 END; ; 2851 3 ; 2852 3 [CMD_SHOW] : ; 2853 3 COMND_SHOW (); ; 2854 3 ; 2855 3 [CMD_STATUS] : ; 2856 3 COMND_STATUS (); ; 2857 3 ; 2858 3 [CMD_TAKE] : ; 2859 3 STATUS = COMND_FILE (TAK_FIL_DESC, %ASCID'.COM;0', FALSE, .TAKE_DISPLAY); ; 2860 3 ; 2861 3 [CMD_TRANSMIT]: ! ; 2862 3 COMND_TRANSMIT (); ! ; 2863 3 ; 2864 3 [INRANGE] : ; 2865 3 TES; ; 2866 3 ; 2867 2 END; ; 2868 2 ; 2869 2 RETURN .STATUS; ; 2870 1 END; ! End of DO_COMND .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAJ: .ASCII \Kermit Server running on VAX/VMS host. Please type your escape s\- ; 53 20 74 69 6D 72 65 4B 00060 ; 75 72 20 72 65 76 72 65 00068 ; 6E 6F 20 67 6E 69 6E 6E 00070 ; 53 4D 56 2F 58 41 56 20 00078 ; 20 20 2E 74 73 6F 68 20 00080 ; 74 20 65 73 61 65 6C 50 00088 ; 72 75 6F 79 20 65 70 79 00090 ; 20 65 70 61 63 73 65 20 00098 ; 73 000A0 .ASCII \equence to\<0> ; 20 65 63 6E 65 75 71 65 000A1 ; 00 6F 74 000A9 P.AAI: .LONG 17694795 ; 010E004B 000AC .ADDRESS P.AAJ ; 00000000' 000B0 P.AAL: .ASCII \ return to your local machine. Shut down the server by typing th\- ; 20 6E 72 75 74 65 72 20 000B4 ; 20 72 75 6F 79 20 6F 74 000BC ; 61 6D 20 6C 61 63 6F 6C 000C4 ; 20 20 2E 65 6E 69 68 63 000CC ; 77 6F 64 20 74 75 68 53 000D4 ; 65 73 20 65 68 74 20 6E 000DC ; 20 79 62 20 72 65 76 72 000E4 ; 74 20 67 6E 69 70 79 74 000EC ; 68 000F4 .ASCII \e Kermit BYE\<0><0><0> ; 74 69 6D 72 65 4B 20 65 000F5 ; 00 00 00 45 59 42 20 000FD P.AAK: .LONG 17694797 ; 010E004D 00104 .ADDRESS P.AAL ; 00000000' 00108 P.AAN: .ASCII \ command on your local machine.\<0> ; 64 6E 61 6D 6D 6F 63 20 0010C ; 72 75 6F 79 20 6E 6F 20 00114 ; 6D 20 6C 61 63 6F 6C 20 0011C ; 00 2E 65 6E 69 68 63 61 00124 P.AAM: .LONG 17694751 ; 010E001F 0012C .ADDRESS P.AAN ; 00000000' 00130 P.AAP: .ASCII \ Type LOGOUT to return to VMS Kermit\ ; 4F 4C 20 65 70 79 54 20 00134 ; 20 6F 74 20 54 55 4F 47 0013C ; 74 20 6E 72 75 74 65 72 00144 ; 65 4B 20 53 4D 56 20 6F 0014C ; 74 69 6D 72 00154 P.AAO: .LONG 17694756 ; 010E0024 00158 .ADDRESS P.AAP ; 00000000' 0015C P.AAR: .ASCII \.COM;0\<0><0> ; 00 00 30 3B 4D 4F 43 2E 00160 P.AAQ: .LONG 17694726 ; 010E0006 00168 .ADDRESS P.AAR ; 00000000' 0016C .PSECT $OWN$,NOEXE,2 ;PID U.1313: .LONG 0 ; 00000000 00304 U.1308= P.AAI U.1309= P.AAK U.1310= P.AAM U.1311= P.AAO .EXTRN FILE_OPEN, FILE_CLOSE .PSECT $CODE$,NOWRT,2 ;DO_COMND U.5: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,- ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 2622 0FFC 00000 R11> ;R11 MOVAB G^FILE_SIZE, R11 ;FILE_SIZE, R11 5B 00000000G 00 9E 00002 MOVAB G^TERM_OPEN, R10 ;TERM_OPEN, R10 5A 00000000G 00 9E 00009 MOVAB G^U.1313, R9 ;U.1313, R9 59 00000000' 00 9E 00010 MOVAB -132(SP), SP ;-132(SP), SP 5E FF7C CE 9E 00017 MOVL #17694720, -140(R9) ;#17694720, TEMP_DESC 2673 FF74 C9 010E0000 8F D0 0001C MOVAB -132(R9), -136(R9) ;TEMP_NAME, TEMP_DESC+4 FF78 C9 FF7C C9 9E 00025 CLRQ -728(R9) ;COMMAND 2674 FD28 C9 7C 0002C CLRL (R11) ;FILE_SIZE 2677 6B D4 00030 CLRL G^ALT_FILE_SIZE ;ALT_FILE_SIZE 2678 00000000' 00 D4 00032 CLRL G^GEN_1SIZE ;GEN_1SIZE 2679 00000000G 00 D4 00038 CLRL G^GEN_2SIZE ;GEN_2SIZE 2680 00000000G 00 D4 0003E CLRL G^GEN_3SIZE ;GEN_3SIZE 2681 00000000G 00 D4 00044 CLRL G^CONNECT_FLAG ;CONNECT_FLAG 2682 00000000G 00 D4 0004A CLRQ -720(R9) ;REM_TYPE 2676 FD30 C9 7C 00050 MOVL 4(AP), R0 ;CMD_DESC, R0 2684 50 04 AC D0 00054 MOVZWL (R0), -764(R9) ;(R0), TPARSE_BLOCK+8 FD04 C9 60 3C 00058 MOVL 4(R0), -760(R9) ;4(R0), TPARSE_BLOCK+12 2685 FD08 C9 04 A0 D0 0005D BICB2 #1, -768(R9) ;#1, TPARSE_BLOCK+4 2686 FD00 C9 01 8A 00063 PUSHAB G^KERMIT_KEY ;KERMIT_KEY 2687 00000000' 00 9F 00068 PUSHAB G^KERMIT_STATE ;KERMIT_STATE 00000000' 00 9F 0006E PUSHAB -772(R9) ;TPARSE_BLOCK FCFC C9 9F 00074 CALLS #3, G^LIB$TPARSE ;#3, LIB$TPARSE 00000000G 00 03 FB 00078 MOVL R0, R6 ;R0, STATUS 56 50 D0 0007F BLBC R6, 8$ ;STATUS, 8$ 2689 7C 56 E9 00082 MOVZWL G^FILE_DESC, (R11) ;FILE_DESC, FILE_SIZE 2692 6B 00000000G 00 3C 00085 CASEL -728(R9), #1, #18 ;COMMAND, #1, #18 2694 01 FD28 C9 CF 0008C ; 12 00091 1$: .WORD 5$-1$,- ;5$-1$,- 005F 0056 00092 6$-1$,- ;6$-1$,- 00C8 0098 00096 11$-1$,- ;11$-1$,- 0122 0207 0009A 18$-1$,- ;18$-1$,- 0189 01D4 0009E 36$-1$,- ;36$-1$,- 00A1 01DD 000A2 25$-1$,- ;25$-1$,- 0067 0026 000A6 29$-1$,- ;29$-1$,- 00D7 007D 000AA 28$-1$,- ;28$-1$,- 00EA 00E0 000AE 30$-1$,- ;30$-1$,- 01E6 0207 000B2 13$-1$,- ;13$-1$,- 0200 000B6 2$-1$,- ;2$-1$,- 7$-1$,- ;7$-1$,- 9$-1$,- ;9$-1$,- 19$-1$,- ;19$-1$,- 21$-1$,- ;21$-1$,- 23$-1$,- ;23$-1$,- 36$-1$,- ;36$-1$,- 32$-1$,- ;32$-1$,- 35$-1$ ;35$-1$ 2$: PUSHL #1 ;#1 2700 01 DD 000B8 CALLS #1, (R10) ;#1, TERM_OPEN 6A 01 FB 000BA MOVL R0, R6 ;R0, STATUS 56 50 D0 000BD BLBC R6, 14$ ;STATUS, 14$ 78 56 E9 000C0 BLBS G^CONNECT_FLAG, 3$ ;CONNECT_FLAG, 3$ 2704 0B 00000000G 00 E8 000C3 PUSHL #7 ;#7 07 DD 000CA CALLS #1, G^DO_GENERIC ;#1, DO_GENERIC 00000000G 00 01 FB 000CC BRB 4$ ;4$ 07 11 000D3 3$: MOVL #134316122, R6 ;#134316122, STATUS 56 0801805A 8F D0 000D5 4$: CALLS #0, G^TERM_CLOSE ;#0, TERM_CLOSE 2706 00000000G 00 00 FB 000DC BLBS R6, 6$ ;STATUS, 6$ 2709 0B 56 E8 000E3 BRB 12$ ;12$ 49 11 000E6 5$: CALLS #0, G^TERM_CONNECT ;#0, TERM_CONNECT 2714 00000000G 00 00 FB 000E8 BRB 20$ ;20$ 7F 11 000EF 6$: MOVL #134316203, R0 ;#134316203, R0 2717 50 080180AB 8F D0 000F1 RET ; 04 000F8 7$: PUSHL #1 ;#1 2721 01 DD 000F9 CALLS #1, (R10) ;#1, TERM_OPEN 6A 01 FB 000FB MOVL R0, R6 ;R0, STATUS 56 50 D0 000FE 8$: BLBC R6, 22$ ;STATUS, 22$ 75 56 E9 00101 BLBS G^CONNECT_FLAG, 16$ ;CONNECT_FLAG, 16$ 2725 45 00000000G 00 E8 00104 PUSHL #1 ;#1 01 DD 0010B BRB 15$ ;15$ 38 11 0010D 9$: PUSHL #1 ;#1 2732 01 DD 0010F CALLS #1, (R10) ;#1, TERM_OPEN 6A 01 FB 00111 MOVL R0, R6 ;R0, STATUS 56 50 D0 00114 BLBC R6, 22$ ;STATUS, 22$ 5F 56 E9 00117 BLBS G^CONNECT_FLAG, 16$ ;CONNECT_FLAG, 16$ 2736 2F 00000000G 00 E8 0011A 10$: CALLS #0, G^REC_SWITCH ;#0, REC_SWITCH 00000000G 00 00 FB 00121 BRB 17$ ;17$ 2D 11 00128 11$: CALLS #0, G^U.6 ;#0, U.6 2742 00000000V 00 00 FB 0012A 12$: BRB 22$ ;22$ 46 11 00131 13$: PUSHL #1 ;#1 2746 01 DD 00133 CALLS #1, (R10) ;#1, TERM_OPEN 6A 01 FB 00135 MOVL R0, R6 ;R0, STATUS 56 50 D0 00138 14$: BLBC R6, 22$ ;STATUS, 22$ 3B 56 E9 0013B BLBS G^CONNECT_FLAG, 16$ ;CONNECT_FLAG, 16$ 2750 0B 00000000G 00 E8 0013E PUSHL #7 ;#7 07 DD 00145 15$: CALLS #1, G^DO_GENERIC ;#1, DO_GENERIC 00000000G 00 01 FB 00147 BRB 17$ ;17$ 07 11 0014E 16$: MOVL #134316122, R6 ;#134316122, STATUS 56 0801805A 8F D0 00150 17$: BRW 26$ ;26$ 2752 00AE 31 00157 18$: PUSHL #1 ;#1 2757 01 DD 0015A CALLS #1, (R10) ;#1, TERM_OPEN 6A 01 FB 0015C MOVL R0, R6 ;R0, STATUS 56 50 D0 0015F BLBC R6, 22$ ;STATUS, 22$ 14 56 E9 00162 CLRL (R11) ;FILE_SIZE 2760 6B D4 00165 BRB 10$ ;10$ 2761 B8 11 00167 19$: CALLS #0, G^U.9 ;#0, U.9 2766 00000000V 00 00 FB 00169 20$: BRB 22$ ;22$ 07 11 00170 21$: CALLS #0, G^U.10 ;#0, U.10 2769 00000000V 00 00 FB 00172 22$: BRW 36$ ;36$ 011D 31 00179 23$: PUSHAB G^U.1311 ;U.1311 2777 00000000' 00 9F 0017C CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT 00000000G 00 01 FB 00182 TSTL (R9) ;PID 2779 69 D5 00189 BEQL 24$ ;24$ 11 13 0018B PUSHL R9 ;R9 2782 59 DD 0018D CALLS #1, G^LIB$ATTACH ;#1, LIB$ATTACH 00000000G 00 01 FB 0018F MOVL R0, R6 ;R0, STATUS 56 50 D0 00196 BLBS R6, 24$ ;STATUS, 24$ 2784 02 56 E8 00199 CLRL (R9) ;PID 69 D4 0019C 24$: TSTL (R9) ;PID 2788 69 D5 0019E BNEQ 22$ ;22$ D7 12 001A0 PUSHL R9 ;R9 2789 59 DD 001A2 CLRQ -(SP) ;-(SP) 7E 7C 001A4 CLRQ -(SP) ;-(SP) 7E 7C 001A6 CLRL -(SP) ;-(SP) 7E D4 001A8 CALLS #6, G^LIB$SPAWN ;#6, LIB$SPAWN 00000000G 00 06 FB 001AA BRW 33$ ;33$ 00D9 31 001B1 25$: MOVL G^TY_FIL, R7 ;TY_FIL, SAVE_TY_FIL 2805 57 00000000G 00 D0 001B4 CLRL G^TY_FIL ;TY_FIL 2806 00000000G 00 D4 001BB MOVL (R11), R0 ;FILE_SIZE, R0 2807 50 6B D0 001C1 MOVL R0, R8 ;R0, SAVE_FILE_SIZE 58 50 D0 001C4 MOVC3 R0, G^FILE_NAME, (SP) ;R0, FILE_NAME, SAVE_FILE_NAME 2810 00000000G 00 50 28 001C7 ; 6E 001CE CLRL -(SP) ;-(SP) 2812 7E D4 001CF CALLS #1, G^FILE_OPEN ;#1, FILE_OPEN 00000000G 00 01 FB 001D1 BLBC R0, 27$ ;R0, 27$ 37 50 E9 001D8 MOVL R8, (R11) ;SAVE_FILE_SIZE, FILE_SIZE 2815 6B 58 D0 001DB MOVC3 (R11), (SP), G^FILE_NAME ;FILE_SIZE, SAVE_FILE_NAME, - 2817 6E 6B 28 001DE ;FILE_NAME 00000000G 00 001E1 CLRL -(SP) ;-(SP) 2819 7E D4 001E6 CALLS #1, G^FILE_CLOSE ;#1, FILE_CLOSE 00000000G 00 01 FB 001E8 MOVL R7, G^TY_FIL ;SAVE_TY_FIL, TY_FIL 2820 00000000G 00 57 D0 001EF PUSHL #1 ;#1 2822 01 DD 001F6 CALLS #1, (R10) ;#1, TERM_OPEN 6A 01 FB 001F8 MOVL R0, R6 ;R0, STATUS 56 50 D0 001FB BLBC R6, 31$ ;STATUS, 31$ 75 56 E9 001FE CALLS #0, G^SEND_SWITCH ;#0, SEND_SWITCH 2825 00000000G 00 00 FB 00201 26$: CALLS #0, G^TERM_CLOSE ;#0, TERM_CLOSE 2826 00000000G 00 00 FB 00208 BRW 34$ ;34$ 007E 31 0020F 27$: MOVL R7, G^TY_FIL ;SAVE_TY_FIL, TY_FIL 2831 00000000G 00 57 D0 00212 BRB 34$ ;34$ 2694 75 11 00219 28$: PUSHAB G^U.1308 ;U.1308 2837 00000000' 00 9F 0021B CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT 00000000G 00 01 FB 00221 PUSHAB G^U.1309 ;U.1309 2838 00000000' 00 9F 00228 CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT 00000000G 00 01 FB 0022E PUSHAB G^U.1310 ;U.1310 2839 00000000' 00 9F 00235 CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT 00000000G 00 01 FB 0023B PUSHL #1 ;#1 2841 01 DD 00242 CALLS #1, (R10) ;#1, TERM_OPEN 6A 01 FB 00244 MOVL R0, R6 ;R0, STATUS 56 50 D0 00247 BLBC R6, 36$ ;STATUS, 36$ 4C 56 E9 0024A CALLS #0, G^SERVER ;#0, SERVER 2844 00000000G 00 00 FB 0024D MOVL R0, R6 ;R0, STATUS 56 50 D0 00254 CALLS #0, G^TERM_CLOSE ;#0, TERM_CLOSE 2845 00000000G 00 00 FB 00257 MOVL #134316043, R0 ;#134316043, R0 2846 50 0801800B 8F D0 0025E RET ; 04 00265 29$: CALLS #0, G^U.7 ;#0, U.7 2853 00000000V 00 00 FB 00266 BRB 36$ ;36$ 2A 11 0026D 30$: CALLS #0, G^U.8 ;#0, U.8 2856 00000000V 00 00 FB 0026F 31$: BRB 36$ ;36$ 21 11 00276 32$: PUSHL -716(R9) ;TAKE_DISPLAY 2859 FD34 C9 DD 00278 CLRL -(SP) ;-(SP) 7E D4 0027C PUSHAB G^P.AAQ ;P.AAQ 00000000' 00 9F 0027E PUSHAB -280(R9) ;TAK_FIL_DESC FEE8 C9 9F 00284 CALLS #4, W^U.4 ;#4, U.4 FB0D CF 04 FB 00288 33$: MOVL R0, R6 ;R0, STATUS 56 50 D0 0028D 34$: BRB 36$ ;36$ 07 11 00290 35$: CALLS #0, G^COMND_TRANSMIT ;#0, COMND_TRANSMIT 2862 00000000G 00 00 FB 00292 36$: MOVL R6, R0 ;STATUS, R0 2869 50 56 D0 00299 RET ; 04 0029C ; Routine Size: 669 bytes, Routine Base: $CODE$ + 03F5 ; 2871 1 %SBTTL 'Command execution -- COMND_HELP' ; 2872 1 ROUTINE COMND_HELP : NOVALUE = ; 2873 1 ; 2874 1 !++ ; 2875 1 ! FUNCTIONAL DESCRIPTION: ; 2876 1 ! ; 2877 1 ! This routine will do the HELP command processing for KERMIT. It ; 2878 1 ! will call the library routines. ; 2879 1 ! ; 2880 1 ! CALLING SEQUENCE: ; 2881 1 ! ; 2882 1 ! COMND_HELP(); ; 2883 1 ! ; 2884 1 ! INPUT PARAMETERS: ; 2885 1 ! ; 2886 1 ! None. ; 2887 1 ! ; 2888 1 ! IMPLICIT INPUTS: ; 2889 1 ! ; 2890 1 ! None. ; 2891 1 ! ; 2892 1 ! OUTPUT PARAMETERS: ; 2893 1 ! ; 2894 1 ! None. ; 2895 1 ! ; 2896 1 ! IMPLICIT OUTPUTS: ; 2897 1 ! ; 2898 1 ! None. ; 2899 1 ! ; 2900 1 ! COMPLETION CODES: ; 2901 1 ! ; 2902 1 ! None. ; 2903 1 ! ; 2904 1 ! SIDE EFFECTS: ; 2905 1 ! ; 2906 1 ! None. ; 2907 1 ! ; 2908 1 !-- ; 2909 1 ; 2910 2 BEGIN ; 2911 2 ; 2912 2 LOCAL ; 2913 2 Help_File : VECTOR [2], ; 2914 2 STATUS : UNSIGNED LONG; ; 2915 2 ; 2916 2 EXTERNAL ROUTINE ; 2917 2 LBR$OUTPUT_HELP : ADDRESSING_MODE (GENERAL); ; 2918 2 ; 2919 2 ! ; 2920 2 ! Do the help processing. ; 2921 2 ! ; P 2922 2 Status = $TRNLNM(TABNAM = %ASCID 'LNM$FILE_DEV', ; 2923 2 LOGNAM = %ASCID 'KERMIT_HELP'); ; 2924 2 IF .Status ; 2925 2 THEN ; 2926 3 BEGIN ; 2927 3 Help_File [0] = %CHARCOUNT(%ASCII 'KERMIT_HELP'); ; 2928 3 Help_File [1] = UPLIT BYTE(%ASCII 'KERMIT_HELP'); ; 2929 3 STATUS = LBR$OUTPUT_HELP (LIB$PUT_OUTPUT, ; 2930 3 0, ; 2931 3 TEMP_DESC, ; 2932 3 %ASCID'KERMIT_HELP', ; 2933 3 UPLIT (HLP$M_PROMPT + ; 2934 3 HLP$M_PROCESS + ; 2935 3 HLP$M_GROUP + ; 2936 3 HLP$M_SYSTEM), ; 2937 3 LIB$GET_INPUT); ; 2938 3 END ; 2939 2 ELSE ; 2940 3 BEGIN ; 2941 3 Help_File [0] = %CHARCOUNT(%ASCII 'KERMIT_HELP'); ; 2942 3 Help_File [1] = UPLIT BYTE(%ASCII 'KERMIT_HELP'); ; 2943 3 STATUS = LBR$OUTPUT_HELP (LIB$PUT_OUTPUT, ; 2944 3 0, ; 2945 3 TEMP_DESC, ; 2946 3 %ASCID'KERMIT', ; 2947 3 UPLIT (HLP$M_PROMPT + ; 2948 3 HLP$M_PROCESS + ; 2949 3 HLP$M_GROUP + ; 2950 3 HLP$M_SYSTEM), ; 2951 3 LIB$GET_INPUT); ; 2952 2 END; ; 2953 2 ; 2954 2 IF NOT .STATUS THEN LIB$SIGNAL (.STATUS); ; 2955 2 ; 2956 1 END; .PSECT $PLIT$,NOWRT,NOEXE,2 P.AAT: .ASCII \LNM$FILE_DEV\ ; 45 4C 49 46 24 4D 4E 4C 00170 ; 56 45 44 5F 00178 P.AAS: .LONG 17694732 ; 010E000C 0017C .ADDRESS P.AAT ; 00000000' 00180 P.AAV: .ASCII \KERMIT_HELP\<0> ; 48 5F 54 49 4D 52 45 4B 00184 ; 00 50 4C 45 0018C P.AAU: .LONG 17694731 ; 010E000B 00190 .ADDRESS P.AAV ; 00000000' 00194 P.AAW: .ASCII \KERMIT_HELP\ ; 48 5F 54 49 4D 52 45 4B 00198 ; 50 4C 45 001A0 .BLKB 1 ; 001A3 P.AAY: .ASCII \KERMIT_HELP\<0> ; 48 5F 54 49 4D 52 45 4B 001A4 ; 00 50 4C 45 001AC P.AAX: .LONG 17694731 ; 010E000B 001B0 .ADDRESS P.AAY ; 00000000' 001B4 P.AAZ: .LONG 15 ; 0000000F 001B8 P.ABA: .ASCII \KERMIT_HELP\ ; 48 5F 54 49 4D 52 45 4B 001BC ; 50 4C 45 001C4 .BLKB 1 ; 001C7 P.ABC: .ASCII \KERMIT\<0><0> ; 00 00 54 49 4D 52 45 4B 001C8 P.ABB: .LONG 17694726 ; 010E0006 001D0 .ADDRESS P.ABC ; 00000000' 001D4 P.ABD: .LONG 15 ; 0000000F 001D8 .EXTRN LBR$OUTPUT_HELP, SYS$TRNLNM .PSECT $CODE$,NOWRT,2 ;COMND_HELP U.6: .WORD ^M<R2,R3> ;Save R2,R3 2872 000C 00000 MOVAB G^LIB$GET_INPUT, R3 ;LIB$GET_INPUT, R3 53 00000000G 00 9E 00002 MOVAB G^P.AAU, R2 ;P.AAU, R2 52 00000000' 00 9E 00009 SUBL2 #8, SP ;#8, SP 5E 08 C2 00010 CLRQ -(SP) ;-(SP) 2923 7E 7C 00013 PUSHL R2 ;R2 52 DD 00015 PUSHAB -20(R2) ;P.AAS EC A2 9F 00017 CLRL -(SP) ;-(SP) 7E D4 0001A CALLS #5, G^SYS$TRNLNM ;#5, SYS$TRNLNM 00000000G 00 05 FB 0001C MOVL #11, (SP) ;#11, HELP_FILE 2927 6E 0B D0 00023 BLBC R0, 1$ ;STATUS, 1$ 2924 0F 50 E9 00026 MOVAB 8(R2), 4(SP) ;P.AAW, HELP_FILE+4 2928 04 AE 08 A2 9E 00029 PUSHL R3 ;R3 2937 53 DD 0002E PUSHAB 40(R2) ;P.AAZ 2933 28 A2 9F 00030 PUSHAB 32(R2) ;P.AAX 2931 20 A2 9F 00033 BRB 2$ ;2$ 0D 11 00036 1$: MOVAB 44(R2), 4(SP) ;P.ABA, HELP_FILE+4 2942 04 AE 2C A2 9E 00038 PUSHL R3 ;R3 2951 53 DD 0003D PUSHAB 72(R2) ;P.ABD 2947 48 A2 9F 0003F PUSHAB 64(R2) ;P.ABB 2945 40 A2 9F 00042 2$: PUSHAB G^U.63 ;U.63 00000000' 00 9F 00045 CLRL -(SP) ;-(SP) 2944 7E D4 0004B PUSHAB G^LIB$PUT_OUTPUT ;LIB$PUT_OUTPUT 2943 00000000G 00 9F 0004D CALLS #6, G^LBR$OUTPUT_HELP ;#6, LBR$OUTPUT_HELP 00000000G 00 06 FB 00053 BLBS R0, 3$ ;STATUS, 3$ 2954 09 50 E8 0005A PUSHL R0 ;STATUS 50 DD 0005D CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL 00000000G 00 01 FB 0005F 3$: RET ; 2956 04 00066 ; Routine Size: 103 bytes, Routine Base: $CODE$ + 0692 ; 2957 1 %SBTTL 'Command execution -- Support routines -- OUTPUT_LONG_WORD' ; 2958 1 ROUTINE OUTPUT_LONG_WORD (MSG_ADDR, LONG_VALUE) : NOVALUE = ; 2959 1 ; 2960 1 !++ ; 2961 1 ! FUNCTIONAL DESCRIPTION: ; 2962 1 ! This routine is used to output the various long word parameters ; 2963 1 ! that are shown by the SHOW command. All text is defined in the level ; 2964 1 ! 0 of this program. ; 2965 1 ! ; 2966 1 ! CALLING SEQUENCE: ; 2967 1 ! ; 2968 1 ! OUTPUT_LONG_WORD( MSG_ASCID, LONG_WORD_VALUE_TO_OUTPUT); ; 2969 1 ! ; 2970 1 ! INPUT PARAMETERS: ; 2971 1 ! ; 2972 1 ! MSG_ASCID - %ASCID of the text to use for the $FAO call. ; 2973 1 ! ; 2974 1 ! LONG_WORD_VALUE_TO_OUTPUT - Value of the long word to pass to the $FAO. ; 2975 1 ! ; 2976 1 ! IMPLICIT INPUTS: ; 2977 1 ! ; 2978 1 ! None. ; 2979 1 ! ; 2980 1 ! OUTPUT PARAMETERS: ; 2981 1 ! ; 2982 1 ! None. ; 2983 1 ! ; 2984 1 ! IMPLICIT OUTPUTS: ; 2985 1 ! ; 2986 1 ! None. ; 2987 1 ! ; 2988 1 ! COMPLETION CODES: ; 2989 1 ! ; 2990 1 ! None. ; 2991 1 ! ; 2992 1 ! SIDE EFFECTS: ; 2993 1 ! ; 2994 1 ! None. ; 2995 1 ! ; 2996 1 !-- ; 2997 1 ; 2998 2 BEGIN ; 2999 2 ; 3000 2 MAP ; 3001 2 LONG_VALUE : LONG UNSIGNED, ; 3002 2 MSG_ADDR : LONG UNSIGNED; ; 3003 2 ; 3004 2 LOCAL ; 3005 2 STATUS : UNSIGNED; ! Status return by LIB$xxx ; 3006 2 ; 3007 2 INIT_STR_DESC (OUTPUT_DESC, OUTPUT_LINE, OUT_BFR_LENGTH); ; 3008 2 $FAO (.MSG_ADDR, OUTPUT_SIZE, OUTPUT_DESC, .LONG_VALUE); ; 3009 2 OUTPUT_DESC [DSC$W_LENGTH] = .OUTPUT_SIZE; ; 3010 2 STATUS = LIB$PUT_OUTPUT (OUTPUT_DESC); ; 3011 1 END; .EXTRN SYS$FAO ;OUTPUT_LONG_WORD U.1314: .WORD ^M<R2> ;Save R2 2958 0004 00000 MOVAB G^U.54, R2 ;U.54, R2 52 00000000' 00 9E 00002 MOVL #17694800, (R2) ;#17694800, OUTPUT_DESC 3007 62 010E0050 8F D0 00009 MOVAB -80(R2), 4(R2) ;OUTPUT_LINE, OUTPUT_DESC+4 04 A2 B0 A2 9E 00010 PUSHL 8(AP) ;LONG_VALUE 3008 08 AC DD 00015 PUSHL R2 ;R2 52 DD 00018 PUSHAB 8(R2) ;OUTPUT_SIZE 08 A2 9F 0001A PUSHL 4(AP) ;MSG_ADDR 04 AC DD 0001D CALLS #4, G^SYS$FAO ;#4, SYS$FAO 00000000G 00 04 FB 00020 MOVW 8(R2), (R2) ;OUTPUT_SIZE, OUTPUT_DESC 3009 62 08 A2 B0 00027 PUSHL R2 ;R2 3010 52 DD 0002B CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT 00000000G 00 01 FB 0002D RET ; 3011 04 00034 ; Routine Size: 53 bytes, Routine Base: $CODE$ + 06F9 ; 3012 1 %SBTTL 'Command Execution -- COMND_REMOTE' ; 3013 1 ROUTINE COMND_REMOTE : NOVALUE = ; 3014 1 ; 3015 1 !++ ; 3016 1 ! FUNCTIONAL DESCRIPTION: ; 3017 1 ! ; 3018 1 ! This routine will handle the REMOTE commands. It will call KERMSG ; 3019 1 !to perform the command. ; 3020 1 ! ; 3021 1 ! CALLING SEQUENCE: ; 3022 1 ! ; 3023 1 ! COMND_REMOTE (); ; 3024 1 ! ; 3025 1 ! INPUT PARAMETERS: ; 3026 1 ! ; 3027 1 ! None. ; 3028 1 ! ; 3029 1 ! IMPLICIT INPUTS: ; 3030 1 ! ; 3031 1 ! REM_TYPE - type of command to be executed ; 3032 1 ! GEN_xDATA/GEN_xSIZE - arguments for the commands ; 3033 1 ! ; 3034 1 ! OUPTUT PARAMETERS: ; 3035 1 ! ; 3036 1 ! None. ; 3037 1 ! ; 3038 1 ! IMPLICIT OUTPUTS: ; 3039 1 ! ; 3040 1 ! None. ; 3041 1 ! ; 3042 1 ! COMPLETION CODES: ; 3043 1 ! ; 3044 1 ! None. ; 3045 1 ! ; 3046 1 ! SIDE EFFECTS: ; 3047 1 ! ; 3048 1 ! None. ; 3049 1 ! ; 3050 1 !-- ; 3051 1 ; 3052 2 BEGIN ; 3053 2 ; 3054 2 IF GET_REM_ARGS (FALSE) ; 3055 2 THEN ; 3056 2 ; 3057 2 IF TERM_OPEN (TRUE) ! Open the terminal to determine if local ; 3058 2 THEN ; 3059 3 BEGIN ; 3060 3 ; 3061 3 IF NOT .CONNECT_FLAG ; 3062 3 THEN DO_GENERIC (.REM_TYPE) ; 3063 3 ELSE LIB$SIGNAL (KER_LOCONLY); ; 3064 3 ; 3065 3 TERM_CLOSE (); ; 3066 2 END; ; 3067 2 ; 3068 1 END; ! End of COMND_REMOTE ;COMND_REMOTE U.9: .WORD ^M<> ;Save nothing 3013 0000 00000 CLRL -(SP) ;-(SP) 3054 7E D4 00002 CALLS #1, G^U.11 ;#1, U.11 00000000V 00 01 FB 00004 BLBC R0, 3$ ;R0, 3$ 36 50 E9 0000B PUSHL #1 ;#1 3057 01 DD 0000E CALLS #1, G^TERM_OPEN ;#1, TERM_OPEN 00000000G 00 01 FB 00010 BLBC R0, 3$ ;R0, 3$ 2A 50 E9 00017 BLBS G^CONNECT_FLAG, 1$ ;CONNECT_FLAG, 1$ 3061 0F 00000000G 00 E8 0001A PUSHL G^U.51 ;U.51 3062 00000000' 00 DD 00021 CALLS #1, G^DO_GENERIC ;#1, DO_GENERIC 00000000G 00 01 FB 00027 BRB 2$ ;2$ 0D 11 0002E 1$: PUSHL #134316122 ;#134316122 3063 0801805A 8F DD 00030 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL 00000000G 00 01 FB 00036 2$: CALLS #0, G^TERM_CLOSE ;#0, TERM_CLOSE 3065 00000000G 00 00 FB 0003D 3$: RET ; 3068 04 00044 ; Routine Size: 69 bytes, Routine Base: $CODE$ + 072E ; 3069 1 %SBTTL 'Command Execution -- COMND_LOCAL' ; 3070 1 ROUTINE COMND_LOCAL : NOVALUE = ; 3071 1 ; 3072 1 !++ ; 3073 1 ! FUNCTIONAL DESCRIPTION: ; 3074 1 ! ; 3075 1 ! This routine will handle the LOCAL commands. It will call the generic ; 3076 1 !command processor to perform the command, and type the result. ; 3077 1 ! ; 3078 1 ! CALLING SEQUENCE: ; 3079 1 ! ; 3080 1 ! COMND_LOCAL (); ; 3081 1 ! ; 3082 1 ! INPUT PARAMETERS: ; 3083 1 ! ; 3084 1 ! None. ; 3085 1 ! ; 3086 1 ! IMPLICIT INPUTS: ; 3087 1 ! ; 3088 1 ! REM_TYPE - type of command to be executed ; 3089 1 ! GEN_xDATA/GEN_xSIZE - arguments for the commands ; 3090 1 ! ; 3091 1 ! OUPTUT PARAMETERS: ; 3092 1 ! ; 3093 1 ! None. ; 3094 1 ! ; 3095 1 ! IMPLICIT OUTPUTS: ; 3096 1 ! ; 3097 1 ! None. ; 3098 1 ! ; 3099 1 ! COMPLETION CODES: ; 3100 1 ! ; 3101 1 ! None. ; 3102 1 ! ; 3103 1 ! SIDE EFFECTS: ; 3104 1 ! ; 3105 1 ! None. ; 3106 1 ! ; 3107 1 !-- ; 3108 1 ; 3109 2 BEGIN ; 3110 2 ; 3111 2 LOCAL ; 3112 2 SAVED_TY_FIL, ! Saved value from TY_FIL ; 3113 2 STATUS, ! Status values ; 3114 2 FILE_FLAG, ! Flag whether file is open ; 3115 2 CHARACTER, ! Character from get-a-char routine ; 3116 2 STR_LENGTH, ! Length of string ; 3117 2 STR_ADDRESS, ! Address of string ; 3118 2 GET_CHR_RTN; ! Address of routine to get a character ; 3119 2 ; 3120 2 EXTERNAL ROUTINE ; 3121 2 SY_GENERIC, ! Do a generic command ; 3122 2 GET_FILE, ! Get a character from a file ; 3123 2 FILE_OPEN, ! Open a file ; 3124 2 FILE_CLOSE; ! Close a file ; 3125 2 ; 3126 2 ! ; 3127 2 ! First get any extra arguments needed ; 3128 2 ! ; 3129 2 STATUS = GET_REM_ARGS (TRUE); ; 3130 2 ; 3131 2 IF NOT .STATUS THEN RETURN; ; 3132 2 ; 3133 2 ! ; 3134 2 ! Initialize arguments for SY_GENERIC ; 3135 2 ! ; 3136 2 GET_CHR_RTN = 0; ! No routine ; 3137 2 STR_LENGTH = 0; ! No length ; 3138 2 STR_ADDRESS = 0; ! No address ; 3139 2 ! ; 3140 2 ! Have generic routine do the command ; 3141 2 ! ; 3142 2 STATUS = SY_GENERIC (.REM_TYPE, STR_ADDRESS, STR_LENGTH, GET_CHR_RTN); ; 3143 2 ; 3144 2 IF NOT .STATUS ; 3145 2 THEN ; 3146 2 LIB$SIGNAL (.STATUS) ; 3147 2 ELSE ; 3148 3 BEGIN ; 3149 3 ! ; 3150 3 ! If we got a string, type it out ; 3151 3 ! ; 3152 3 ; 3153 3 IF .STR_LENGTH NEQ 0 ; 3154 3 THEN ; 3155 4 BEGIN ; 3156 4 ; 3157 4 LOCAL ; 3158 4 POINTER; ; 3159 4 ; 3160 4 POINTER = CH$PTR (.STR_ADDRESS); ; 3161 4 ; 3162 4 DECR I FROM .STR_LENGTH TO 1 DO ; 3163 4 TT_CHAR (CH$RCHAR_A (POINTER)); ; 3164 4 ; 3165 4 TT_CRLF (); ! Make sure it gets dumped ; 3166 4 END ; 3167 3 ELSE ; 3168 3 ! ; 3169 3 ! Here if we didn't get a string. Either we need to call the supplied routine ; 3170 3 ! or open a file and call GET_FILE for each character. ; 3171 3 ! ; 3172 4 BEGIN ; 3173 4 ; 3174 4 IF .GET_CHR_RTN NEQ 0 ; 3175 4 THEN ; 3176 4 FILE_FLAG = FALSE ! No file open ; 3177 4 ELSE ; 3178 5 BEGIN ; 3179 5 FILE_FLAG = TRUE; ! Have a file ; 3180 5 GET_CHR_RTN = GET_FILE; ! This is our get-a-char routine ; 3181 5 SAVED_TY_FIL = .TY_FIL; ! Save current type out flag ; 3182 5 TY_FIL = FALSE; ! Make sure we don't have name typed ; 3183 5 STATUS = FILE_OPEN (FNC_READ); ! Open the file ; 3184 5 TY_FIL = .SAVED_TY_FIL; ! Restore type out value ; 3185 5 ; 3186 5 IF NOT .STATUS ! If we couldn't open the file ; 3187 5 THEN ; 3188 5 RETURN; ! Just return, (FILE_OPEN reported it) ; 3189 5 ; 3190 4 END; ; 3191 4 ; 3192 4 DO ; 3193 5 BEGIN ; 3194 5 STATUS = (.GET_CHR_RTN) (CHARACTER); ! Get a character ; 3195 5 ; 3196 5 IF .STATUS AND NOT .STATUS EQL KER_EOF ! Did we get one? ; 3197 5 THEN ; 3198 5 TT_CHAR (.CHARACTER) ! Yes, type it ; 3199 5 ELSE ; 3200 5 ! ; 3201 5 ! If no character returned, check for EOF and close file if we opened it ; 3202 5 ! ; 3203 5 ; 3204 5 IF .STATUS EQL KER_EOF AND .FILE_FLAG THEN FILE_CLOSE (); ; 3205 5 ; 3206 5 END ; 3207 4 UNTIL NOT .STATUS OR .STATUS EQL KER_EOF; ! Loop until we are done ; 3208 4 ; 3209 4 TT_OUTPUT (); ! Force out last buffer ; 3210 3 END; ; 3211 3 ; 3212 2 END; ; 3213 2 ; 3214 1 END; ! End of COMND_LOCAL .EXTRN SY_GENERIC, GET_FILE ;COMND_LOCAL U.10: .WORD ^M<R2,R3,R4,R5,R6> ;Save R2,R3,R4,R5,R6 3070 007C 00000 MOVAB G^TT_CHAR, R6 ;TT_CHAR, R6 56 00000000G 00 9E 00002 MOVAB G^TY_FIL, R5 ;TY_FIL, R5 55 00000000G 00 9E 00009 SUBL2 #16, SP ;#16, SP 5E 10 C2 00010 PUSHL #1 ;#1 3129 01 DD 00013 CALLS #1, G^U.11 ;#1, U.11 00000000V 00 01 FB 00015 MOVL R0, R4 ;R0, STATUS 54 50 D0 0001C BLBC R4, 6$ ;STATUS, 6$ 3131 71 54 E9 0001F CLRQ (SP) ;GET_CHR_RTN 3136 6E 7C 00022 CLRL 8(SP) ;STR_ADDRESS 3138 08 AE D4 00024 PUSHL SP ;SP 3142 5E DD 00027 PUSHAB 8(SP) ;STR_LENGTH 08 AE 9F 00029 PUSHAB 16(SP) ;STR_ADDRESS 10 AE 9F 0002C PUSHL G^U.51 ;U.51 00000000' 00 DD 0002F CALLS #4, G^SY_GENERIC ;#4, SY_GENERIC 00000000G 00 04 FB 00035 MOVL R0, R4 ;R0, STATUS 54 50 D0 0003C BLBS R4, 1$ ;STATUS, 1$ 3144 0A 54 E8 0003F PUSHL R4 ;STATUS 3146 54 DD 00042 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL 00000000G 00 01 FB 00044 RET ; 04 0004B 1$: TSTL 4(SP) ;STR_LENGTH 3153 04 AE D5 0004C BEQL 4$ ;4$ 1C 13 0004F MOVL 8(SP), R3 ;STR_ADDRESS, POINTER 3160 53 08 AE D0 00051 ADDL3 #1, 4(SP), R2 ;#1, STR_LENGTH, I 3162 04 AE 01 C1 00055 ; 52 00059 BRB 3$ ;3$ 06 11 0005A 2$: MOVZBL (R3)+, -(SP) ;(POINTER)+, -(SP) 3163 7E 83 9A 0005C CALLS #1, (R6) ;#1, TT_CHAR 66 01 FB 0005F 3$: SOBGTR R2, 2$ ;I, 2$ F7 52 F5 00062 CALLS #0, G^TT_CRLF ;#0, TT_CRLF 3165 00000000G 00 00 FB 00065 RET ; 04 0006C 4$: TSTL (SP) ;GET_CHR_RTN 3174 6E D5 0006D BEQL 5$ ;5$ 04 13 0006F CLRL R3 ;FILE_FLAG 3176 53 D4 00071 BRB 7$ ;7$ 21 11 00073 5$: MOVL #1, R3 ;#1, FILE_FLAG 3179 53 01 D0 00075 MOVAB G^GET_FILE, (SP) ;GET_FILE, GET_CHR_RTN 3180 6E 00000000G 00 9E 00078 MOVL (R5), R2 ;TY_FIL, SAVED_TY_FIL 3181 52 65 D0 0007F CLRL (R5) ;TY_FIL 3182 65 D4 00082 CLRL -(SP) ;-(SP) 3183 7E D4 00084 CALLS #1, G^FILE_OPEN ;#1, FILE_OPEN 00000000G 00 01 FB 00086 MOVL R0, R4 ;R0, STATUS 54 50 D0 0008D MOVL R2, (R5) ;SAVED_TY_FIL, TY_FIL 3184 65 52 D0 00090 6$: BLBC R4, 11$ ;STATUS, 11$ 3186 44 54 E9 00093 7$: PUSHAB 12(SP) ;CHARACTER 3194 0C AE 9F 00096 CALLS #1, @4(SP) ;#1, @GET_CHR_RTN 04 BE 01 FB 00099 MOVL R0, R4 ;R0, STATUS 54 50 D0 0009D BLBC R4, 8$ ;STATUS, 8$ 3196 11 54 E9 000A0 CMPL R4, #134316131 ;STATUS, #134316131 08018063 8F 54 D1 000A3 BEQL 8$ ;8$ 08 13 000AA PUSHL 12(SP) ;CHARACTER 3198 0C AE DD 000AC CALLS #1, (R6) ;#1, TT_CHAR 66 01 FB 000AF BRB 9$ ;9$ 13 11 000B2 8$: CMPL R4, #134316131 ;STATUS, #134316131 3204 08018063 8F 54 D1 000B4 BNEQ 9$ ;9$ 0A 12 000BB BLBC R3, 9$ ;FILE_FLAG, 9$ 07 53 E9 000BD CALLS #0, G^FILE_CLOSE ;#0, FILE_CLOSE 00000000G 00 00 FB 000C0 9$: BLBC R4, 10$ ;STATUS, 10$ 3207 09 54 E9 000C7 CMPL R4, #134316131 ;STATUS, #134316131 08018063 8F 54 D1 000CA BNEQ 7$ ;7$ C3 12 000D1 10$: CALLS #0, G^TT_OUTPUT ;#0, TT_OUTPUT 3209 00000000G 00 00 FB 000D3 11$: RET ; 3214 04 000DA ; Routine Size: 219 bytes, Routine Base: $CODE$ + 0773 ; 3215 1 %SBTTL 'Command execution -- COMND_SHOW' ; 3216 1 ROUTINE COMND_SHOW : NOVALUE = ; 3217 1 ; 3218 1 !++ ; 3219 1 ! FUNCTIONAL DESCRIPTION: ; 3220 1 ! ; 3221 1 ! This routine will process the SHOW command. This routine ; 3222 1 ! expects that the command has already been processed and that ; 3223 1 ! the type of SHOW command is stored in SHOW_TYPE. ; 3224 1 ! ; 3225 1 ! CALLING SEQUENCE: ; 3226 1 ! ; 3227 1 ! COMND_SHOW(); ; 3228 1 ! ; 3229 1 ! INPUT PARAMETERS: ; 3230 1 ! ; 3231 1 ! None. ; 3232 1 ! ; 3233 1 ! IMPLICIT INPUTS: ; 3234 1 ! ; 3235 1 ! None. ; 3236 1 ! ; 3237 1 ! OUTPUT PARAMETERS: ; 3238 1 ! ; 3239 1 ! None. ; 3240 1 ! ; 3241 1 ! IMPLICIT OUTPUTS: ; 3242 1 ! ; 3243 1 ! None. ; 3244 1 ! ; 3245 1 ! COMPLETION CODES: ; 3246 1 ! ; 3247 1 ! None. ; 3248 1 ! ; 3249 1 ! SIDE EFFECTS: ; 3250 1 ! ; 3251 1 ! None. ; 3252 1 ! ; 3253 1 !-- ; 3254 1 ; 3255 2 BEGIN ; 3256 2 ; 3257 2 LOCAL ; 3258 2 STATUS : WORD; ! Status returned ; 3259 2 ; 3260 2 ! Bind some addresses to text ; 3261 2 ; 3262 2 BIND ; 3263 2 OFF_TEXT = %ASCID'OFF', ! Item is off ; 3264 2 ON_TEXT = %ASCID'ON', ! Item is on ; 3265 2 SHOW_ABT_MSG = %ASCID' Incomplete file disposition !AS', ; 3266 2 ABT_DISCARD = %ASCID'Discard', ; 3267 2 ABT_KEEP = %ASCID'Keep', ; 3268 2 SHOW_CHK_MSG = %ASCID' Block check type !AS', ; 3269 2 CHK_1CHAR_MSG = %ASCID'One character checksum', ; 3270 2 CHK_2CHAR_MSG = %ASCID'Two character checksum', ; 3271 2 CHK_CRC_MSG = %ASCID'Three character CRC-CCITT', ; 3272 2 SHOW_DEB_MSG = %ASCID' Debugging !AS', ; 3273 2 SHOW_DEL_MSG = %ASCID' Delay !ZL (sec)', ; 3274 2 SHOW_SRV_MSG = %ASCID' Server sends NAKs every !ZL seconds while waiting for a command', ; 3275 2 SHOW_ESC_MSG = %ASCID' Escape character !3OL (octal)', ; 3276 2 SHOW_FTP_MSG = %ASCID' File type !AS', ; 3277 2 SHOW_BLK_MSG = %ASCID' BINARY and FIXED record size !UL (bytes)', ; 3278 2 FTP_ASCII = %ASCID'ASCII', ; 3279 2 FTP_BINARY = %ASCID'BINARY', ; 3280 2 FTP_BLOCK = %ASCID'BLOCK', ; 3281 2 FTP_FIXED = %ASCID'FIXED', ; 3282 2 SHOW_FNM_MSG = %ASCID' File naming !AS', ; 3283 2 FNM_MSG_FULL = %ASCID'Full file specifcation', ; 3284 2 FNM_MSG_NORMAL = %ASCID'Normal form', ; 3285 2 FNM_MSG_UNTRAN = %ASCID'Untranslated', ; 3286 2 ! SHOW_IBM_MSG = %ASCID' IBM mode !AS', ; 3287 2 SHOW_HAN_MSG = %ASCID' Handshaking character !3OL (octal)', ; 3288 2 SHOW_HAN_MSG_NONE = %ASCID' Handshaking character None', ; 3289 2 SHOW_LIN_MSG = %ASCID' Line used !AS', ; 3290 2 SHOW_ECH_MSG = %ASCID' Local echo !AS', ; 3291 2 SHOW_PAR_MSG = %ASCID' Parity type !AS', ; 3292 2 PAR_EVEN = %ASCID'Even', ; 3293 2 PAR_ODD = %ASCID'Odd', ; 3294 2 PAR_MARK = %ASCID'Mark', ; 3295 2 PAR_SPACE = %ASCID'Space', ; 3296 2 PAR_NONE = %ASCID'None', ; 3297 2 SHOW_RTY_HDR = %ASCID' Retry maximums', ; 3298 2 SHOW_RTY_INI_MSG = %ASCID' Initial connection !ZL (dec)', ; 3299 2 SHOW_RTY_PKT_MSG = %ASCID' Sending a packet !ZL (dec)', ; 3300 2 SHOW_REC_HDR = %ASCID' Receive parameters', ; 3301 2 SHOW_SND_HDR = %ASCID' Send parameters', ; 3302 2 SHOW_PKT_MSG = %ASCID' Packet length !ZL (dec)', ; 3303 2 SHOW_PAD_MSG = %ASCID' Padding length !ZL (dec)', ; 3304 2 SHOW_PDC_MSG = %ASCID' Padding character !3OL (octal)', ; 3305 2 SHOW_TIM_MSG = %ASCID' Time out !ZL (sec)', ; 3306 2 SHOW_EOL_MSG = %ASCID' End of line character !3OL (octal)', ; 3307 2 SHOW_QUO_MSG = %ASCID' Quoting character !3OL (octal)', ; 3308 2 SHOW_SOH_MSG = %ASCID' Start of packet !3OL (octal)', ; 3309 2 SHOW_8QU_MSG = %ASCID' 8-bit quoting character !3OL (octal)', ; 3310 2 SHOW_TRN_HDR = %ASCID' Transmit parameters', ! ; 3311 2 SHOW_TRD_MSG = %ASCID' Delay 0.!AD (sec)', ! ; 3312 2 SHOW_TRE_MSG = %ASCID' Echo !AS', ! ; 3313 2 SHOW_RPT_MSG = %ASCID' Repeat quoting character !3OL (octal)'; ; 3314 2 ; 3315 2 !++ ; 3316 2 ! FUNCTIONAL DESCRIPTION: ; 3317 2 ! ; 3318 2 ! This routine is used to output the keywords TRUE or FALSE. ; 3319 2 ! All text that this routine uses is defined in the level 0 BEGIN/END ; 3320 2 ! of the program. ; 3321 2 ! ; 3322 2 ! CALLING SEQUENCE: ; 3323 2 ! ; 3324 2 ! OUTPUT_TRUE_FALSE( MSG_ASCID, FLAG_WORD); ; 3325 2 ! ; 3326 2 ! INPUT PARAMETERS: ; 3327 2 ! ; 3328 2 ! MSG_ASCID - %ASCID of the text to use for the $FAO call. ; 3329 2 ! ; 3330 2 ! FLAG_WORD - Long word containing the value of either TRUE or FALSE. ; 3331 2 ! ; 3332 2 ! IMPLICIT INPUTS: ; 3333 2 ! ; 3334 2 ! None. ; 3335 2 ! ; 3336 2 ! OUTPUT PARAMETERS: ; 3337 2 ! ; 3338 2 ! None. ; 3339 2 ! ; 3340 2 ! IMPLICIT OUTPUTS: ; 3341 2 ! ; 3342 2 ! None. ; 3343 2 ! ; 3344 2 ! COMPLETION CODES: ; 3345 2 ! ; 3346 2 ! None. ; 3347 2 ! ; 3348 2 ! SIDE EFFECTS: ; 3349 2 ! ; 3350 2 ! None. ; 3351 2 ! ; 3352 2 !-- ; 3353 2 ; 3354 2 ROUTINE OUTPUT_TRUE_FALSE (MSG_ADDR, FLAG_ADDR) : NOVALUE = ; 3355 3 BEGIN ; 3356 3 ; 3357 3 MAP ; 3358 3 FLAG_ADDR : LONG UNSIGNED, ; 3359 3 MSG_ADDR : LONG UNSIGNED; ; 3360 3 ; 3361 3 LOCAL ; 3362 3 STATUS : UNSIGNED; ! Status return by LIB$xxx ; 3363 3 ; 3364 3 INIT_STR_DESC (OUTPUT_DESC, OUTPUT_LINE, OUT_BFR_LENGTH); ; P 3365 3 $FAO (.MSG_ADDR, OUTPUT_SIZE, OUTPUT_DESC, ; P 3366 3 (SELECTONE ..FLAG_ADDR OF ; P 3367 3 SET ; P 3368 3 [TRUE] : ON_TEXT; ; P 3369 3 [FALSE] : OFF_TEXT; ; 3370 3 TES)); ; 3371 3 OUTPUT_DESC [DSC$W_LENGTH] = .OUTPUT_SIZE; ; 3372 3 STATUS = LIB$PUT_OUTPUT (OUTPUT_DESC); ; 3373 2 END; .PSECT $PLIT$,NOWRT,NOEXE,2 P.ABF: .ASCII \OFF\<0> ; 00 46 46 4F 001DC P.ABE: .LONG 17694723 ; 010E0003 001E0 .ADDRESS P.ABF ; 00000000' 001E4 P.ABH: .ASCII \ON\<0><0> ; 00 00 4E 4F 001E8 P.ABG: .LONG 17694722 ; 010E0002 001EC .ADDRESS P.ABH ; 00000000' 001F0 P.ABJ: .ASCII \ Incomplete file disposition\<9>\!AS\ ; 6C 70 6D 6F 63 6E 49 20 001F4 ; 65 6C 69 66 20 65 74 65 001FC ; 69 73 6F 70 73 69 64 20 00204 ; 53 41 21 09 6E 6F 69 74 0020C P.ABI: .LONG 17694752 ; 010E0020 00214 .ADDRESS P.ABJ ; 00000000' 00218 P.ABL: .ASCII \Discard\<0> ; 00 64 72 61 63 73 69 44 0021C P.ABK: .LONG 17694727 ; 010E0007 00224 .ADDRESS P.ABL ; 00000000' 00228 P.ABN: .ASCII \Keep\ ; 70 65 65 4B 0022C P.ABM: .LONG 17694724 ; 010E0004 00230 .ADDRESS P.ABN ; 00000000' 00234 P.ABP: .ASCII \ Block check type\<9><9>\!AS\<0><0> ; 63 20 6B 63 6F 6C 42 20 00238 ; 70 79 74 20 6B 63 65 68 00240 ; 00 00 53 41 21 09 09 65 00248 P.ABO: .LONG 17694742 ; 010E0016 00250 .ADDRESS P.ABP ; 00000000' 00254 P.ABR: .ASCII \One character checksum\<0><0> ; 72 61 68 63 20 65 6E 4F 00258 ; 68 63 20 72 65 74 63 61 00260 ; 00 00 6D 75 73 6B 63 65 00268 P.ABQ: .LONG 17694742 ; 010E0016 00270 .ADDRESS P.ABR ; 00000000' 00274 P.ABT: .ASCII \Two character checksum\<0><0> ; 72 61 68 63 20 6F 77 54 00278 ; 68 63 20 72 65 74 63 61 00280 ; 00 00 6D 75 73 6B 63 65 00288 P.ABS: .LONG 17694742 ; 010E0016 00290 .ADDRESS P.ABT ; 00000000' 00294 P.ABV: .ASCII \Three character CRC-CCITT\<0><0><0> ; 68 63 20 65 65 72 68 54 00298 ; 20 72 65 74 63 61 72 61 002A0 ; 54 49 43 43 2D 43 52 43 002A8 ; 00 00 00 54 002B0 P.ABU: .LONG 17694745 ; 010E0019 002B4 .ADDRESS P.ABV ; 00000000' 002B8 P.ABX: .ASCII \ Debugging\<9><9><9>\!AS\ ; 69 67 67 75 62 65 44 20 002BC ; 53 41 21 09 09 09 67 6E 002C4 P.ABW: .LONG 17694736 ; 010E0010 002CC .ADDRESS P.ABX ; 00000000' 002D0 P.ABZ: .ASCII \ Delay\<9><9><9><9>\!ZL (sec)\<0> ; 09 09 79 61 6C 65 44 20 002D4 ; 73 28 20 4C 5A 21 09 09 002DC ; 00 29 63 65 002E4 P.ABY: .LONG 17694739 ; 010E0013 002E8 .ADDRESS P.ABZ ; 00000000' 002EC P.ACB: .ASCII \ Server sends NAKs every !ZL seconds while waiting for a command\ ; 20 72 65 76 72 65 53 20 002F0 ; 41 4E 20 73 64 6E 65 73 002F8 ; 79 72 65 76 65 20 73 4B 00300 ; 63 65 73 20 4C 5A 21 20 00308 ; 69 68 77 20 73 64 6E 6F 00310 ; 69 74 69 61 77 20 65 6C 00318 ; 61 20 72 6F 66 20 67 6E 00320 ; 64 6E 61 6D 6D 6F 63 20 00328 P.ACA: .LONG 17694784 ; 010E0040 00330 .ADDRESS P.ACB ; 00000000' 00334 P.ACD: .ASCII \ Escape character\<9><9>\!3OL (octal)\<0> ; 20 65 70 61 63 73 45 20 00338 ; 65 74 63 61 72 61 68 63 00340 ; 20 4C 4F 33 21 09 09 72 00348 ; 00 29 6C 61 74 63 6F 28 00350 P.ACC: .LONG 17694751 ; 010E001F 00358 .ADDRESS P.ACD ; 00000000' 0035C P.ACF: .ASCII \ File type\<9><9><9>\!AS\ ; 79 74 20 65 6C 69 46 20 00360 ; 53 41 21 09 09 09 65 70 00368 P.ACE: .LONG 17694736 ; 010E0010 00370 .ADDRESS P.ACF ; 00000000' 00374 P.ACH: .ASCII \ BINARY and FIXED record size !UL (bytes)\<0> ; 20 59 52 41 4E 49 42 20 00378 ; 45 58 49 46 20 64 6E 61 00380 ; 64 72 6F 63 65 72 20 44 00388 ; 20 20 20 65 7A 69 73 20 00390 ; 74 79 62 28 20 4C 55 21 00398 ; 00 29 73 65 003A0 P.ACG: .LONG 17694763 ; 010E002B 003A4 .ADDRESS P.ACH ; 00000000' 003A8 P.ACJ: .ASCII \ASCII\<0><0><0> ; 00 00 00 49 49 43 53 41 003AC P.ACI: .LONG 17694725 ; 010E0005 003B4 .ADDRESS P.ACJ ; 00000000' 003B8 P.ACL: .ASCII \BINARY\<0><0> ; 00 00 59 52 41 4E 49 42 003BC P.ACK: .LONG 17694726 ; 010E0006 003C4 .ADDRESS P.ACL ; 00000000' 003C8 P.ACN: .ASCII \BLOCK\<0><0><0> ; 00 00 00 4B 43 4F 4C 42 003CC P.ACM: .LONG 17694725 ; 010E0005 003D4 .ADDRESS P.ACN ; 00000000' 003D8 P.ACP: .ASCII \FIXED\<0><0><0> ; 00 00 00 44 45 58 49 46 003DC P.ACO: .LONG 17694725 ; 010E0005 003E4 .ADDRESS P.ACP ; 00000000' 003E8 P.ACR: .ASCII \ File naming\<9><9><9>\!AS\<0><0> ; 61 6E 20 65 6C 69 46 20 003EC ; 21 09 09 09 67 6E 69 6D 003F4 ; 00 00 53 41 003FC P.ACQ: .LONG 17694738 ; 010E0012 00400 .ADDRESS P.ACR ; 00000000' 00404 P.ACT: .ASCII \Full file specifcation\<0><0> ; 6C 69 66 20 6C 6C 75 46 00408 ; 66 69 63 65 70 73 20 65 00410 ; 00 00 6E 6F 69 74 61 63 00418 P.ACS: .LONG 17694742 ; 010E0016 00420 .ADDRESS P.ACT ; 00000000' 00424 P.ACV: .ASCII \Normal form\<0> ; 66 20 6C 61 6D 72 6F 4E 00428 ; 00 6D 72 6F 00430 P.ACU: .LONG 17694731 ; 010E000B 00434 .ADDRESS P.ACV ; 00000000' 00438 P.ACX: .ASCII \Untranslated\ ; 6C 73 6E 61 72 74 6E 55 0043C ; 64 65 74 61 00444 P.ACW: .LONG 17694732 ; 010E000C 00448 .ADDRESS P.ACX ; 00000000' 0044C P.ACZ: .ASCII \ Handshaking character\<9><9>\!3OL (octal)\ ; 61 68 73 64 6E 61 48 20 00450 ; 61 68 63 20 67 6E 69 6B 00458 ; 09 09 72 65 74 63 61 72 00460 ; 63 6F 28 20 4C 4F 33 21 00468 ; 29 6C 61 74 00470 P.ACY: .LONG 17694756 ; 010E0024 00474 .ADDRESS P.ACZ ; 00000000' 00478 P.ADB: .ASCII \ Handshaking character\<9><9>\None\ ; 61 68 73 64 6E 61 48 20 0047C ; 61 68 63 20 67 6E 69 6B 00484 ; 09 09 72 65 74 63 61 72 0048C ; 65 6E 6F 4E 00494 P.ADA: .LONG 17694748 ; 010E001C 00498 .ADDRESS P.ADB ; 00000000' 0049C P.ADD: .ASCII \ Line used\<9><9><9>\!AS\ ; 73 75 20 65 6E 69 4C 20 004A0 ; 53 41 21 09 09 09 64 65 004A8 P.ADC: .LONG 17694736 ; 010E0010 004B0 .ADDRESS P.ADD ; 00000000' 004B4 P.ADF: .ASCII \ Local echo\<9><9><9>\!AS\<0><0><0> ; 65 20 6C 61 63 6F 4C 20 004B8 ; 41 21 09 09 09 6F 68 63 004C0 ; 00 00 00 53 004C8 P.ADE: .LONG 17694737 ; 010E0011 004CC .ADDRESS P.ADF ; 00000000' 004D0 P.ADH: .ASCII \ Parity type\<9><9><9>\!AS\<0><0> ; 20 79 74 69 72 61 50 20 004D4 ; 21 09 09 09 65 70 79 74 004DC ; 00 00 53 41 004E4 P.ADG: .LONG 17694738 ; 010E0012 004E8 .ADDRESS P.ADH ; 00000000' 004EC P.ADJ: .ASCII \Even\ ; 6E 65 76 45 004F0 P.ADI: .LONG 17694724 ; 010E0004 004F4 .ADDRESS P.ADJ ; 00000000' 004F8 P.ADL: .ASCII \Odd\<0> ; 00 64 64 4F 004FC P.ADK: .LONG 17694723 ; 010E0003 00500 .ADDRESS P.ADL ; 00000000' 00504 P.ADN: .ASCII \Mark\ ; 6B 72 61 4D 00508 P.ADM: .LONG 17694724 ; 010E0004 0050C .ADDRESS P.ADN ; 00000000' 00510 P.ADP: .ASCII \Space\<0><0><0> ; 00 00 00 65 63 61 70 53 00514 P.ADO: .LONG 17694725 ; 010E0005 0051C .ADDRESS P.ADP ; 00000000' 00520 P.ADR: .ASCII \None\ ; 65 6E 6F 4E 00524 P.ADQ: .LONG 17694724 ; 010E0004 00528 .ADDRESS P.ADR ; 00000000' 0052C P.ADT: .ASCII \ Retry maximums\<0> ; 6D 20 79 72 74 65 52 20 00530 ; 00 73 6D 75 6D 69 78 61 00538 P.ADS: .LONG 17694735 ; 010E000F 00540 .ADDRESS P.ADT ; 00000000' 00544 P.ADV: .ASCII \ Initial connection\<9><9>\!ZL (dec)\<0> ; 61 69 74 69 6E 49 20 20 00548 ; 63 65 6E 6E 6F 63 20 6C 00550 ; 5A 21 09 09 6E 6F 69 74 00558 ; 00 29 63 65 64 28 20 4C 00560 P.ADU: .LONG 17694751 ; 010E001F 00568 .ADDRESS P.ADV ; 00000000' 0056C P.ADX: .ASCII \ Sending a packet\<9><9>\!ZL (dec)\<0><0><0> ; 6E 69 64 6E 65 53 20 20 00570 ; 6B 63 61 70 20 61 20 67 00578 ; 20 4C 5A 21 09 09 74 65 00580 ; 00 00 00 29 63 65 64 28 00588 P.ADW: .LONG 17694749 ; 010E001D 00590 .ADDRESS P.ADX ; 00000000' 00594 P.ADZ: .ASCII \ Receive parameters\<0> ; 65 76 69 65 63 65 52 20 00598 ; 74 65 6D 61 72 61 70 20 005A0 ; 00 73 72 65 005A8 P.ADY: .LONG 17694739 ; 010E0013 005AC .ADDRESS P.ADZ ; 00000000' 005B0 P.AEB: .ASCII \ Send parameters\ ; 61 70 20 64 6E 65 53 20 005B4 ; 73 72 65 74 65 6D 61 72 005BC P.AEA: .LONG 17694736 ; 010E0010 005C4 .ADDRESS P.AEB ; 00000000' 005C8 P.AED: .ASCII \ Packet length\<9><9><9>\!ZL (dec)\<0> ; 74 65 6B 63 61 50 20 20 005CC ; 09 68 74 67 6E 65 6C 20 005D4 ; 64 28 20 4C 5A 21 09 09 005DC ; 00 29 63 65 005E4 P.AEC: .LONG 17694747 ; 010E001B 005E8 .ADDRESS P.AED ; 00000000' 005EC P.AEF: .ASCII \ Padding length\<9><9>\!ZL (dec)\<0> ; 6E 69 64 64 61 50 20 20 005F0 ; 68 74 67 6E 65 6C 20 67 005F8 ; 64 28 20 4C 5A 21 09 09 00600 ; 00 29 63 65 00608 P.AEE: .LONG 17694747 ; 010E001B 0060C .ADDRESS P.AEF ; 00000000' 00610 P.AEH: .ASCII \ Padding character\<9><9>\!3OL (octal)\<0><0><0> ; 6E 69 64 64 61 50 20 20 00614 ; 63 61 72 61 68 63 20 67 0061C ; 4F 33 21 09 09 72 65 74 00624 ; 6C 61 74 63 6F 28 20 4C 0062C ; 00 00 00 29 00634 P.AEG: .LONG 17694753 ; 010E0021 00638 .ADDRESS P.AEH ; 00000000' 0063C P.AEJ: .ASCII \ Time out\<9><9><9>\!ZL (sec)\<0><0> ; 6F 20 65 6D 69 54 20 20 00640 ; 4C 5A 21 09 09 09 74 75 00648 ; 00 00 29 63 65 73 28 20 00650 P.AEI: .LONG 17694742 ; 010E0016 00658 .ADDRESS P.AEJ ; 00000000' 0065C P.AEL: .ASCII \ End of line character\<9><9>\!3OL (octal)\<0><0><0> ; 66 6F 20 64 6E 45 20 20 00660 ; 68 63 20 65 6E 69 6C 20 00668 ; 09 72 65 74 63 61 72 61 00670 ; 6F 28 20 4C 4F 33 21 09 00678 ; 00 00 00 29 6C 61 74 63 00680 P.AEK: .LONG 17694757 ; 010E0025 00688 .ADDRESS P.AEL ; 00000000' 0068C P.AEN: .ASCII \ Quoting character\<9><9>\!3OL (octal)\<0><0><0> ; 6E 69 74 6F 75 51 20 20 00690 ; 63 61 72 61 68 63 20 67 00698 ; 4F 33 21 09 09 72 65 74 006A0 ; 6C 61 74 63 6F 28 20 4C 006A8 ; 00 00 00 29 006B0 P.AEM: .LONG 17694753 ; 010E0021 006B4 .ADDRESS P.AEN ; 00000000' 006B8 P.AEP: .ASCII \ Start of packet\<9><9>\!3OL (octal)\<0> ; 20 74 72 61 74 53 20 20 006BC ; 65 6B 63 61 70 20 66 6F 006C4 ; 20 4C 4F 33 21 09 09 74 006CC ; 00 29 6C 61 74 63 6F 28 006D4 P.AEO: .LONG 17694751 ; 010E001F 006DC .ADDRESS P.AEP ; 00000000' 006E0 P.AER: .ASCII \ 8-bit quoting character\<9>\!3OL (octal)\<0><0> ; 20 74 69 62 2D 38 20 20 006E4 ; 20 67 6E 69 74 6F 75 71 006EC ; 65 74 63 61 72 61 68 63 006F4 ; 28 20 4C 4F 33 21 09 72 006FC ; 00 00 29 6C 61 74 63 6F 00704 P.AEQ: .LONG 17694758 ; 010E0026 0070C .ADDRESS P.AER ; 00000000' 00710 P.AET: .ASCII \ Transmit parameters\ ; 69 6D 73 6E 61 72 54 20 00714 ; 65 6D 61 72 61 70 20 74 0071C ; 73 72 65 74 00724 P.AES: .LONG 17694740 ; 010E0014 00728 .ADDRESS P.AET ; 00000000' 0072C P.AEV: .ASCII \ Delay 0.!AD (sec)\<0> ; 20 79 61 6C 65 44 20 20 00730 ; 20 20 20 20 20 20 20 20 00738 ; 20 20 20 20 20 20 20 20 00740 ; 20 20 20 20 20 20 20 20 00748 ; 73 28 20 44 41 21 2E 30 00750 ; 00 29 63 65 00758 P.AEU: .LONG 17694763 ; 010E002B 0075C .ADDRESS P.AEV ; 00000000' 00760 P.AEX: .ASCII \ Echo\<9><9><9>\ !AS\ ; 09 09 6F 68 63 45 20 20 00764 ; 20 20 20 20 20 20 20 09 0076C ; 53 41 21 20 00774 P.AEW: .LONG 17694740 ; 010E0014 00778 .ADDRESS P.AEX ; 00000000' 0077C P.AEZ: .ASCII \ Repeat quoting character\<9>\!3OL (octal)\<0><0> ; 20 74 61 65 70 65 52 20 00780 ; 20 67 6E 69 74 6F 75 71 00788 ; 65 74 63 61 72 61 68 63 00790 ; 28 20 4C 4F 33 21 09 72 00798 ; 00 00 29 6C 61 74 63 6F 007A0 P.AEY: .LONG 17694758 ; 010E0026 007A8 .ADDRESS P.AEZ ; 00000000' 007AC U.1317= P.ABE U.1318= P.ABG U.1319= P.ABI U.1320= P.ABK U.1321= P.ABM U.1322= P.ABO U.1323= P.ABQ U.1324= P.ABS U.1325= P.ABU U.1326= P.ABW U.1327= P.ABY U.1328= P.ACA U.1329= P.ACC U.1330= P.ACE U.1331= P.ACG U.1332= P.ACI U.1333= P.ACK U.1334= P.ACM U.1335= P.ACO U.1336= P.ACQ U.1337= P.ACS U.1338= P.ACU U.1339= P.ACW U.1340= P.ACY U.1341= P.ADA U.1342= P.ADC U.1343= P.ADE U.1344= P.ADG U.1345= P.ADI U.1346= P.ADK U.1347= P.ADM U.1348= P.ADO U.1349= P.ADQ U.1350= P.ADS U.1351= P.ADU U.1352= P.ADW U.1353= P.ADY U.1354= P.AEA U.1355= P.AEC U.1356= P.AEE U.1357= P.AEG U.1358= P.AEI U.1359= P.AEK U.1360= P.AEM U.1361= P.AEO U.1362= P.AEQ U.1363= P.AES U.1364= P.AEU U.1365= P.AEW U.1366= P.AEY .PSECT $CODE$,NOWRT,2 ;OUTPUT_TRUE_FALSE U.1367: .WORD ^M<R2> ;Save R2 3354 0004 00000 MOVAB G^U.54, R2 ;U.54, R2 52 00000000' 00 9E 00002 MOVL #17694800, (R2) ;#17694800, OUTPUT_DESC 3364 62 010E0050 8F D0 00009 MOVAB -80(R2), 4(R2) ;OUTPUT_LINE, OUTPUT_DESC+4 04 A2 B0 A2 9E 00010 MOVL @8(AP), R1 ;@FLAG_ADDR, R1 3370 51 08 BC D0 00015 CMPL R1, #1 ;R1, #1 01 51 D1 00019 BNEQ 1$ ;1$ 09 12 0001C MOVAB G^U.1318, R0 ;U.1318, R0 50 00000000' 00 9E 0001E BRB 2$ ;2$ 0B 11 00025 1$: TSTL R1 ;R1 51 D5 00027 BNEQ 3$ ;3$ 0B 12 00029 MOVAB G^U.1317, R0 ;U.1317, R0 50 00000000' 00 9E 0002B 2$: PUSHL R0 ;R0 50 DD 00032 BRB 4$ ;4$ 03 11 00034 3$: MNEGL #1, -(SP) ;#1, -(SP) 7E 01 CE 00036 4$: PUSHL R2 ;R2 52 DD 00039 PUSHAB 8(R2) ;OUTPUT_SIZE 08 A2 9F 0003B PUSHL 4(AP) ;MSG_ADDR 04 AC DD 0003E CALLS #4, G^SYS$FAO ;#4, SYS$FAO 00000000G 00 04 FB 00041 MOVW 8(R2), (R2) ;OUTPUT_SIZE, OUTPUT_DESC 3371 62 08 A2 B0 00048 PUSHL R2 ;R2 3372 52 DD 0004C CALLS #1, G^LIB$PUT_OUTPUT ;#1, LIB$PUT_OUTPUT 00000000G 00 01 FB 0004E RET ; 3373 04 00055 ; Routine Size: 86 bytes, Routine Base: $CODE$ + 084E ; 3374 2 ; 3375 2 SELECT .SHOW_TYPE OF ; 3376 2 SET ; 3377 2 ! ; 3378 2 ! Show version ; 3379 2 ! ; 3380 2 ; 3381 2 [SHOW_ALL, SHOW_VER] : ; 3382 2 STATUS = LIB$PUT_OUTPUT (IDENT_STRING); ! Type our name and version ; 3383 2 ; 3384 2 [SHOW_ALL, SHOW_CHK, SHOW_PAC] : ; 3385 3 BEGIN ; 3386 3 INIT_STR_DESC (OUTPUT_DESC, OUTPUT_LINE, OUT_BFR_LENGTH); ; P 3387 3 $FAO (SHOW_CHK_MSG, OUTPUT_SIZE, OUTPUT_DESC, ; P 3388 3 (SELECTONE .CHKTYPE OF ; P 3389 3 SET ; P 3390 3 [CHK_1CHAR] : CHK_1CHAR_MSG; ; P 3391 3 [CHK_2CHAR] : CHK_2CHAR_MSG; ; P 3392 3 [CHK_CRC] : CHK_CRC_MSG; ; 3393 3 TES)); ; 3394 3 OUTPUT_DESC [DSC$W_LENGTH] = .OUTPUT_SIZE; ; 3395 3 STATUS = LIB$PUT_OUTPUT (OUTPUT_DESC); ; 3396 2 END; ; 3397 2 ; 3398 2 [SHOW_ALL, SHOW_DEB] : ; 3399 2 OUTPUT_TRUE_FALSE (SHOW_DEB_MSG, DEBUG_FLAG); ; 3400 2 ; 3401 2 [SHOW_ALL, SHOW_DEL, SHOW_COM, SHOW_TIM] : ; 3402 2 OUTPUT_LONG_WORD (SHOW_DEL_MSG, .DELAY); ; 3403 2 ; 3404 2 [SHOW_ALL, SHOW_TIM] : ; 3405 2 OUTPUT_LONG_WORD (SHOW_SRV_MSG, .SRV_TIMEOUT); ; 3406 2 ; 3407 2 [SHOW_ALL, SHOW_ESC, SHOW_COM] : ; 3408 2 OUTPUT_LONG_WORD (SHOW_ESC_MSG, .ESCAPE_CHR); ; 3409 2 ; 3410 2 [SHOW_ALL, SHOW_FIL] : ! ; 3411 3 BEGIN ; 3412 3 INIT_STR_DESC (OUTPUT_DESC, OUTPUT_LINE, OUT_BFR_LENGTH); ; P 3413 3 $FAO (SHOW_FTP_MSG, ; P 3414 3 OUTPUT_SIZE, ; P 3415 3 OUTPUT_DESC, ; P 3416 3 (SELECTONE .FILE_TYPE OF ; P 3417 3 SET ; P 3418 3 [FILE_ASC] : FTP_ASCII; ; P 3419 3 [FILE_BIN] : FTP_BINARY; ; P 3420 3 [FILE_FIX] : FTP_FIXED; ; P 3421 3 [FILE_BLK] : FTP_BLOCK; ; 3422 3 TES)); ; 3423 3 OUTPUT_DESC [DSC$W_LENGTH] = .OUTPUT_SIZE; ; 3424 3 STATUS = LIB$PUT_OUTPUT (OUTPUT_DESC); ; 3425 3 ! ; 3426 3 ! Display the file name format ; 3427 3 ! ; 3428 3 INIT_STR_DESC (OUTPUT_DESC, OUTPUT_LINE, OUT_BFR_LENGTH); ; P 3429 3 $FAO (SHOW_FNM_MSG, OUTPUT_SIZE, OUTPUT_DESC, ; P 3430 3 (SELECTONE .FIL_NORMAL_FORM OF ; P 3431 3 SET ; P 3432 3 [FNM_FULL] : FNM_MSG_FULL; ; P 3433 3 [FNM_NORMAL] : FNM_MSG_NORMAL; ; P 3434 3 [FNM_UNTRAN] : FNM_MSG_UNTRAN; ; 3435 3 TES)); ; 3436 3 OUTPUT_DESC [DSC$W_LENGTH] = .OUTPUT_SIZE; ; 3437 3 STATUS = LIB$PUT_OUTPUT (OUTPUT_DESC); ; 3438 3 ; 3439 3 ! Display file block size ; 3440 3 INIT_STR_DESC (OUTPUT_DESC, OUTPUT_LINE, OUT_BFR_LENGTH); ; 3441 3 $FAO(SHOW_BLK_MSG, OUTPUT_SIZE, OUTPUT_DESC, .file_blocksize); ; 3442 3 OUTPUT_DESC [DSC$W_LENGTH] = .OUTPUT_SIZE; ; 3443 3 STATUS = LIB$PUT_OUTPUT (OUTPUT_DESC); ; 3444 3 ; 3445 2 END; ; 3446 2 ; 3447 2 [SHOW_ALL, SHOW_COM] : ; 3448 2 IF .IBM_CHAR GEQ 0 ; 3449 2 THEN ; 3450 2 OUTPUT_LONG_WORD (SHOW_HAN_MSG, .IBM_CHAR) ; 3451 2 ELSE ; 3452 2 STATUS = LIB$PUT_OUTPUT (SHOW_HAN_MSG_NONE); ; 3453 2 ; 3454 2 [SHOW_ALL, SHOW_ABT, SHOW_FIL] : ; 3455 3 BEGIN ; 3456 3 INIT_STR_DESC (OUTPUT_DESC, OUTPUT_LINE, OUT_BFR_LENGTH); ; 3457 3 $FAO (SHOW_ABT_MSG, OUTPUT_SIZE, OUTPUT_DESC, (IF .ABT_FLAG THEN ABT_DISCARD ELSE ABT_KEEP)); ; 3458 3 OUTPUT_DESC [DSC$W_LENGTH] = .OUTPUT_SIZE; ; 3459 3 STATUS = LIB$PUT_OUTPUT (OUTPUT_DESC); ; 3460 2 END; ; 3461 2 ; 3462 2 [SHOW_ALL, SHOW_LIN, SHOW_COM] : ; 3463 3 BEGIN ; 3464 3 INIT_STR_DESC (OUTPUT_DESC, OUTPUT_LINE, OUT_BFR_LENGTH); ; 3465 3 ; 3466 3 IF .TERM_DESC [DSC$W_LENGTH] GTR 0 ; 3467 3 THEN ; 3468 4 $FAO (SHOW_LIN_MSG, OUTPUT_SIZE, OUTPUT_DESC, TERM_DESC) ; 3469 3 ELSE ; 3470 3 $FAO (SHOW_LIN_MSG, OUTPUT_SIZE, OUTPUT_DESC, %ASCID'none'); ; 3471 3 ; 3472 3 OUTPUT_DESC [DSC$W_LENGTH] = .OUTPUT_SIZE; ; 3473 3 STATUS = LIB$PUT_OUTPUT (OUTPUT_DESC); ; 3474 2 END; ; 3475 2 ; 3476 2 [SHOW_ALL, SHOW_ECH, SHOW_COM] : ; 3477 2 OUTPUT_TRUE_FALSE (SHOW_ECH_MSG, ECHO_FLAG); ; 3478 2 ; 3479 2 [SHOW_ALL, SHOW_PAR, SHOW_COM] : ; 3480 3 BEGIN ; 3481 3 INIT_STR_DESC (OUTPUT_DESC, OUTPUT_LINE, OUT_BFR_LENGTH); ; P 3482 3 $FAO (SHOW_PAR_MSG, OUTPUT_SIZE, OUTPUT_DESC, ; P 3483 3 (SELECTONE .PARITY_TYPE OF ; P 3484 3 SET ; P 3485 3 [PR_EVEN] : PAR_EVEN; ; P 3486 3 [PR_ODD] : PAR_ODD; ; P 3487 3 [PR_NONE] : PAR_NONE; ; P 3488 3 [PR_MARK] : PAR_MARK; ; P 3489 3 [PR_SPACE] : PAR_SPACE; ; 3490 3 TES)); ; 3491 3 OUTPUT_DESC [DSC$W_LENGTH] = .OUTPUT_SIZE; ; 3492 3 STATUS = LIB$PUT_OUTPUT (OUTPUT_DESC); ; 3493 2 END; ; 3494 2 ; 3495 2 [SHOW_ALL, SHOW_RTY, SHOW_PAC] : ; 3496 3 BEGIN ; 3497 3 STATUS = LIB$PUT_OUTPUT (SHOW_RTY_HDR); ; 3498 3 OUTPUT_LONG_WORD (SHOW_RTY_INI_MSG, .SI_RETRIES); ; 3499 3 OUTPUT_LONG_WORD (SHOW_RTY_PKT_MSG, .PKT_RETRIES); ; 3500 2 END; ; 3501 2 ; 3502 2 [SHOW_ALL, SHOW_SEN, SHOW_PAC] : ; 3503 3 BEGIN ; 3504 3 STATUS = LIB$PUT_OUTPUT (SHOW_SND_HDR); ; 3505 3 OUTPUT_LONG_WORD (SHOW_PKT_MSG, ABS (.SND_PKT_SIZE)); ; 3506 3 OUTPUT_LONG_WORD (SHOW_PAD_MSG, ABS (.SND_NPAD)); ; 3507 3 OUTPUT_LONG_WORD (SHOW_PDC_MSG, ABS (.SND_PADCHAR)); ; 3508 3 OUTPUT_LONG_WORD (SHOW_TIM_MSG, ABS (.SND_TIMEOUT)); ; 3509 3 OUTPUT_LONG_WORD (SHOW_EOL_MSG, ABS (.SND_EOL)); ; 3510 3 OUTPUT_LONG_WORD (SHOW_QUO_MSG, ABS (.SND_QUOTE_CHR)); ; 3511 3 OUTPUT_LONG_WORD (SHOW_SOH_MSG, ABS (.SND_SOH)); ; 3512 2 END; ; 3513 2 ; 3514 2 [SHOW_ALL, SHOW_REC, SHOW_PAC] : ; 3515 3 BEGIN ; 3516 3 STATUS = LIB$PUT_OUTPUT (SHOW_REC_HDR); ; 3517 3 OUTPUT_LONG_WORD (SHOW_PKT_MSG, .RCV_PKT_SIZE); ; 3518 3 OUTPUT_LONG_WORD (SHOW_PAD_MSG, .RCV_NPAD); ; 3519 3 OUTPUT_LONG_WORD (SHOW_PDC_MSG, .RCV_PADCHAR); ; 3520 3 OUTPUT_LONG_WORD (SHOW_TIM_MSG, .RCV_TIMEOUT); ; 3521 3 OUTPUT_LONG_WORD (SHOW_EOL_MSG, .RCV_EOL); ; 3522 3 OUTPUT_LONG_WORD (SHOW_QUO_MSG, .RCV_QUOTE_CHR); ; 3523 3 OUTPUT_LONG_WORD (SHOW_8QU_MSG, .RCV_8QUOTE_CHR); ; 3524 3 OUTPUT_LONG_WORD (SHOW_SOH_MSG, .RCV_SOH); ; 3525 2 END; ; 3526 2 ; 3527 2 [SHOW_ALL, SHOW_TRN] : ! ; 3528 3 BEGIN ! ; 3529 3 STATUS = LIB$PUT_OUTPUT (SHOW_TRN_HDR); ! ; 3530 3 INIT_STR_DESC (OUTPUT_DESC, OUTPUT_LINE, OUT_BFR_LENGTH); ! ; 3531 3 $FAO (SHOW_TRD_MSG, OUTPUT_SIZE, OUTPUT_DESC, 1, TRANS_DELAY); ! ; 3532 3 OUTPUT_DESC [DSC$W_LENGTH] = .OUTPUT_SIZE; ! ; 3533 3 STATUS = LIB$PUT_OUTPUT (OUTPUT_DESC); ! ; 3534 3 OUTPUT_TRUE_FALSE (SHOW_TRE_MSG, TRANS_ECHO_FLAG); ! ; 3535 2 END; ! ; 3536 2 ; 3537 2 [SHOW_ALL, SHOW_PAC] : ; 3538 3 BEGIN ; 3539 3 OUTPUT_LONG_WORD (SHOW_RPT_MSG, .SET_REPT_CHR); ; 3540 2 END; ; 3541 2 ; 3542 2 TES; ; 3543 2 ; 3544 1 END; ! End of COMND_SHOW .PSECT $PLIT$,NOWRT,NOEXE,2 P.AFB: .ASCII \none\ ; 65 6E 6F 6E 007B0 P.AFA: .LONG 17694724 ; 010E0004 007B4 .ADDRESS P.AFB ; 00000000' 007B8 .PSECT $CODE$,NOWRT,2 ;COMND_SHOW U.7: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9> ;Save R2,R3,R4,R5,R6,R7,R8,R9 3216 03FC 00000 MOVAB G^TERM_DESC, R9 ;TERM_DESC, R9 59 00000000G 00 9E 00002 MOVAB G^SYS$FAO, R8 ;SYS$FAO, R8 58 00000000G 00 9E 00009 MOVAB G^LIB$PUT_OUTPUT, R7 ;LIB$PUT_OUTPUT, R7 57 00000000G 00 9E 00010 MOVAB W^U.1314, R6 ;U.1314, R6 56 FE3A CF 9E 00017 MOVAB G^U.1355, R5 ;U.1355, R5 55 00000000' 00 9E 0001C MOVAB G^U.54, R4 ;U.54, R4 54 00000000' 00 9E 00023 MOVL -92(R4), R2 ;SHOW_TYPE, R2 3375 52 A4 A4 D0 0002A CMPL R2, #1 ;R2, #1 3381 01 52 D1 0002E BEQL 1$ ;1$ 05 13 00031 CMPL R2, #17 ;R2, #17 11 52 D1 00033 BNEQ 2$ ;2$ 0A 12 00036 1$: PUSHAB -1480(R5) ;IDENT_STRING 3382 FA38 C5 9F 00038 CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 0003C MOVW R0, R3 ;R0, STATUS 53 50 B0 0003F 2$: CMPL R2, #1 ;R2, #1 3384 01 52 D1 00042 BEQL 3$ ;3$ 0A 13 00045 CMPL R2, #12 ;R2, #12 0C 52 D1 00047 BEQL 3$ ;3$ 05 13 0004A CMPL R2, #15 ;R2, #15 0F 52 D1 0004C BNEQ 9$ ;9$ 56 12 0004F 3$: MOVL #17694800, (R4) ;#17694800, OUTPUT_DESC 3386 64 010E0050 8F D0 00051 MOVAB -80(R4), 4(R4) ;OUTPUT_LINE, OUTPUT_DESC+4 04 A4 B0 A4 9E 00058 MOVL G^CHKTYPE, R0 ;CHKTYPE, R0 3393 50 00000000G 00 D0 0005D CMPL R0, #49 ;R0, #49 31 50 D1 00064 BNEQ 4$ ;4$ 07 12 00067 MOVAB -888(R5), R1 ;CHK_1CHAR_MSG, R1 51 FC88 C5 9E 00069 BRB 5$ ;5$ 0A 11 0006E 4$: CMPL R0, #50 ;R0, #50 32 50 D1 00070 BNEQ 6$ ;6$ 09 12 00073 MOVAB -856(R5), R1 ;CHK_2CHAR_MSG, R1 51 FCA8 C5 9E 00075 5$: PUSHL R1 ;R1 51 DD 0007A BRB 8$ ;8$ 11 11 0007C 6$: CMPL R0, #51 ;R0, #51 33 50 D1 0007E BNEQ 7$ ;7$ 09 12 00081 MOVAB -820(R5), R0 ;CHK_CRC_MSG, R0 50 FCCC C5 9E 00083 PUSHL R0 ;R0 50 DD 00088 BRB 8$ ;8$ 03 11 0008A 7$: MNEGL #1, -(SP) ;#1, -(SP) 7E 01 CE 0008C 8$: PUSHL R4 ;R4 54 DD 0008F PUSHAB 8(R4) ;OUTPUT_SIZE 08 A4 9F 00091 PUSHAB -920(R5) ;SHOW_CHK_MSG FC68 C5 9F 00094 CALLS #4, (R8) ;#4, SYS$FAO 68 04 FB 00098 MOVW 8(R4), (R4) ;OUTPUT_SIZE, OUTPUT_DESC 3394 64 08 A4 B0 0009B PUSHL R4 ;R4 3395 54 DD 0009F CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 000A1 MOVW R0, R3 ;R0, STATUS 53 50 B0 000A4 9$: TSTL R2 ;R2 3398 52 D5 000A7 BLEQ 10$ ;10$ 14 15 000A9 CMPL R2, #2 ;R2, #2 02 52 D1 000AB BGTR 10$ ;10$ 0F 14 000AE PUSHAB G^DEBUG_FLAG ;DEBUG_FLAG 3399 00000000G 00 9F 000B0 PUSHAB -796(R5) ;SHOW_DEB_MSG FCE4 C5 9F 000B6 CALLS #2, 341(R6) ;#2, OUTPUT_TRUE_FALSE 0155 C6 02 FB 000BA 10$: CMPL R2, #1 ;R2, #1 3401 01 52 D1 000BF BEQL 11$ ;11$ 0F 13 000C2 CMPL R2, #3 ;R2, #3 03 52 D1 000C4 BEQL 11$ ;11$ 0A 13 000C7 CMPL R2, #5 ;R2, #5 05 52 D1 000C9 BEQL 11$ ;11$ 05 13 000CC CMPL R2, #16 ;R2, #16 10 52 D1 000CE BNEQ 12$ ;12$ 0D 12 000D1 11$: PUSHL G^DELAY ;DELAY 3402 00000000G 00 DD 000D3 PUSHAB -768(R5) ;SHOW_DEL_MSG FD00 C5 9F 000D9 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 000DD 12$: CMPL R2, #1 ;R2, #1 3404 01 52 D1 000E0 BEQL 13$ ;13$ 05 13 000E3 CMPL R2, #5 ;R2, #5 05 52 D1 000E5 BNEQ 14$ ;14$ 0D 12 000E8 13$: PUSHL G^SRV_TIMEOUT ;SRV_TIMEOUT 3405 00000000G 00 DD 000EA PUSHAB -696(R5) ;SHOW_SRV_MSG FD48 C5 9F 000F0 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 000F4 14$: CMPL R2, #1 ;R2, #1 3407 01 52 D1 000F7 BEQL 15$ ;15$ 0A 13 000FA CMPL R2, #4 ;R2, #4 04 52 D1 000FC BEQL 15$ ;15$ 05 13 000FF CMPL R2, #16 ;R2, #16 10 52 D1 00101 BNEQ 16$ ;16$ 0D 12 00104 15$: PUSHL G^ESCAPE_CHR ;ESCAPE_CHR 3408 00000000' 00 DD 00106 PUSHAB -656(R5) ;SHOW_ESC_MSG FD70 C5 9F 0010C CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 00110 16$: CMPL R2, #1 ;R2, #1 3410 01 52 D1 00113 BEQL 17$ ;17$ 08 13 00116 CMPL R2, #14 ;R2, #14 0E 52 D1 00118 BEQL 17$ ;17$ 03 13 0011B BRW 29$ ;29$ 00E2 31 0011D 17$: MOVL #17694800, (R4) ;#17694800, OUTPUT_DESC 3412 64 010E0050 8F D0 00120 MOVAB -80(R4), 4(R4) ;OUTPUT_LINE, OUTPUT_DESC+4 04 A4 B0 A4 9E 00127 MOVL G^FILE_TYPE, R0 ;FILE_TYPE, R0 3422 50 00000000G 00 D0 0012C CMPL R0, #1 ;R0, #1 01 50 D1 00133 BNEQ 18$ ;18$ 07 12 00136 MOVAB -564(R5), R1 ;FTP_ASCII, R1 51 FDCC C5 9E 00138 BRB 20$ ;20$ 16 11 0013D 18$: CMPL R0, #2 ;R0, #2 02 50 D1 0013F BNEQ 19$ ;19$ 07 12 00142 MOVAB -548(R5), R1 ;FTP_BINARY, R1 51 FDDC C5 9E 00144 BRB 20$ ;20$ 0A 11 00149 19$: CMPL R0, #4 ;R0, #4 04 50 D1 0014B BNEQ 21$ ;21$ 09 12 0014E MOVAB -516(R5), R1 ;FTP_FIXED, R1 51 FDFC C5 9E 00150 20$: PUSHL R1 ;R1 51 DD 00155 BRB 23$ ;23$ 11 11 00157 21$: CMPL R0, #3 ;R0, #3 03 50 D1 00159 BNEQ 22$ ;22$ 09 12 0015C MOVAB -532(R5), R0 ;FTP_BLOCK, R0 50 FDEC C5 9E 0015E PUSHL R0 ;R0 50 DD 00163 BRB 23$ ;23$ 03 11 00165 22$: MNEGL #1, -(SP) ;#1, -(SP) 7E 01 CE 00167 23$: PUSHL R4 ;R4 54 DD 0016A PUSHAB 8(R4) ;OUTPUT_SIZE 08 A4 9F 0016C PUSHAB -632(R5) ;SHOW_FTP_MSG FD88 C5 9F 0016F CALLS #4, (R8) ;#4, SYS$FAO 68 04 FB 00173 MOVW 8(R4), (R4) ;OUTPUT_SIZE, OUTPUT_DESC 3423 64 08 A4 B0 00176 PUSHL R4 ;R4 3424 54 DD 0017A CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 0017C MOVW R0, R3 ;R0, STATUS 53 50 B0 0017F MOVL #17694800, (R4) ;#17694800, OUTPUT_DESC 3428 64 010E0050 8F D0 00182 MOVAB -80(R4), 4(R4) ;OUTPUT_LINE, OUTPUT_DESC+4 04 A4 B0 A4 9E 00189 MOVL G^FIL_NORMAL_FORM, R0 ;FIL_NORMAL_FORM, R0 3435 50 00000000G 00 D0 0018E CMPL R0, #2 ;R0, #2 02 50 D1 00195 BNEQ 24$ ;24$ 07 12 00198 MOVAB -456(R5), R1 ;FNM_MSG_FULL, R1 51 FE38 C5 9E 0019A BRB 25$ ;25$ 0A 11 0019F 24$: CMPL R0, #1 ;R0, #1 01 50 D1 001A1 BNEQ 26$ ;26$ 09 12 001A4 MOVAB -436(R5), R1 ;FNM_MSG_NORMAL, R1 51 FE4C C5 9E 001A6 25$: PUSHL R1 ;R1 51 DD 001AB BRB 28$ ;28$ 11 11 001AD 26$: CMPL R0, #4 ;R0, #4 04 50 D1 001AF BNEQ 27$ ;27$ 09 12 001B2 MOVAB -416(R5), R0 ;FNM_MSG_UNTRAN, R0 50 FE60 C5 9E 001B4 PUSHL R0 ;R0 50 DD 001B9 BRB 28$ ;28$ 03 11 001BB 27$: MNEGL #1, -(SP) ;#1, -(SP) 7E 01 CE 001BD 28$: PUSHL R4 ;R4 54 DD 001C0 PUSHAB 8(R4) ;OUTPUT_SIZE 08 A4 9F 001C2 PUSHAB -488(R5) ;SHOW_FNM_MSG FE18 C5 9F 001C5 CALLS #4, (R8) ;#4, SYS$FAO 68 04 FB 001C9 MOVW 8(R4), (R4) ;OUTPUT_SIZE, OUTPUT_DESC 3436 64 08 A4 B0 001CC PUSHL R4 ;R4 3437 54 DD 001D0 CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 001D2 MOVW R0, R3 ;R0, STATUS 53 50 B0 001D5 MOVL #17694800, (R4) ;#17694800, OUTPUT_DESC 3440 64 010E0050 8F D0 001D8 MOVAB -80(R4), 4(R4) ;OUTPUT_LINE, OUTPUT_DESC+4 04 A4 B0 A4 9E 001DF PUSHL G^FILE_BLOCKSIZE ;FILE_BLOCKSIZE 3441 00000000G 00 DD 001E4 PUSHL R4 ;R4 54 DD 001EA PUSHAB 8(R4) ;OUTPUT_SIZE 08 A4 9F 001EC PUSHAB -580(R5) ;SHOW_BLK_MSG FDBC C5 9F 001EF CALLS #4, (R8) ;#4, SYS$FAO 68 04 FB 001F3 MOVW 8(R4), (R4) ;OUTPUT_SIZE, OUTPUT_DESC 3442 64 08 A4 B0 001F6 PUSHL R4 ;R4 3443 54 DD 001FA CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 001FC MOVW R0, R3 ;R0, STATUS 53 50 B0 001FF 29$: CMPL R2, #1 ;R2, #1 3447 01 52 D1 00202 BEQL 30$ ;30$ 05 13 00205 CMPL R2, #16 ;R2, #16 10 52 D1 00207 BNEQ 32$ ;32$ 1E 12 0020A 30$: MOVL G^IBM_CHAR, R0 ;IBM_CHAR, R0 3448 50 00000000G 00 D0 0020C BLSS 31$ ;31$ 0B 19 00213 PUSHL R0 ;R0 3450 50 DD 00215 PUSHAB -372(R5) ;SHOW_HAN_MSG FE8C C5 9F 00217 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 0021B BRB 32$ ;32$ 0A 11 0021E 31$: PUSHAB -336(R5) ;SHOW_HAN_MSG_NONE 3452 FEB0 C5 9F 00220 CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 00224 MOVW R0, R3 ;R0, STATUS 53 50 B0 00227 32$: CMPL R2, #1 ;R2, #1 3454 01 52 D1 0022A BEQL 33$ ;33$ 0A 13 0022D CMPL R2, #13 ;R2, #13 0D 52 D1 0022F BLSS 36$ ;36$ 3E 19 00232 CMPL R2, #14 ;R2, #14 0E 52 D1 00234 BGTR 36$ ;36$ 39 14 00237 33$: MOVL #17694800, (R4) ;#17694800, OUTPUT_DESC 3456 64 010E0050 8F D0 00239 MOVAB -80(R4), 4(R4) ;OUTPUT_LINE, OUTPUT_DESC+4 04 A4 B0 A4 9E 00240 BLBC G^ABT_FLAG, 34$ ;ABT_FLAG, 34$ 3457 07 00000000G 00 E9 00245 MOVAB -964(R5), R0 ;ABT_DISCARD, R0 50 FC3C C5 9E 0024C BRB 35$ ;35$ 05 11 00251 34$: MOVAB -952(R5), R0 ;ABT_KEEP, R0 50 FC48 C5 9E 00253 35$: PUSHL R0 ;R0 50 DD 00258 PUSHL R4 ;R4 54 DD 0025A PUSHAB 8(R4) ;OUTPUT_SIZE 08 A4 9F 0025C PUSHAB -980(R5) ;SHOW_ABT_MSG FC2C C5 9F 0025F CALLS #4, (R8) ;#4, SYS$FAO 68 04 FB 00263 MOVW 8(R4), (R4) ;OUTPUT_SIZE, OUTPUT_DESC 3458 64 08 A4 B0 00266 PUSHL R4 ;R4 3459 54 DD 0026A CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 0026C MOVW R0, R3 ;R0, STATUS 53 50 B0 0026F 36$: CMPL R2, #1 ;R2, #1 3462 01 52 D1 00272 BEQL 37$ ;37$ 0A 13 00275 CMPL R2, #6 ;R2, #6 06 52 D1 00277 BEQL 37$ ;37$ 05 13 0027A CMPL R2, #16 ;R2, #16 10 52 D1 0027C BNEQ 40$ ;40$ 30 12 0027F 37$: MOVL #17694800, (R4) ;#17694800, OUTPUT_DESC 3464 64 010E0050 8F D0 00281 MOVAB -80(R4), 4(R4) ;OUTPUT_LINE, OUTPUT_DESC+4 04 A4 B0 A4 9E 00288 TSTW (R9) ;TERM_DESC 3466 69 B5 0028D BEQL 38$ ;38$ 04 13 0028F PUSHL R9 ;R9 3468 59 DD 00291 BRB 39$ ;39$ 04 11 00293 38$: PUSHAB 460(R5) ;P.AFA 3470 01CC C5 9F 00295 39$: PUSHL R4 ;R4 54 DD 00299 PUSHAB 8(R4) ;OUTPUT_SIZE 08 A4 9F 0029B PUSHAB -312(R5) ;SHOW_LIN_MSG FEC8 C5 9F 0029E CALLS #4, (R8) ;#4, SYS$FAO 68 04 FB 002A2 MOVW 8(R4), (R4) ;OUTPUT_SIZE, OUTPUT_DESC 3472 64 08 A4 B0 002A5 PUSHL R4 ;R4 3473 54 DD 002A9 CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 002AB MOVW R0, R3 ;R0, STATUS 53 50 B0 002AE 40$: CMPL R2, #1 ;R2, #1 3476 01 52 D1 002B1 BEQL 41$ ;41$ 0A 13 002B4 CMPL R2, #7 ;R2, #7 07 52 D1 002B6 BEQL 41$ ;41$ 05 13 002B9 CMPL R2, #16 ;R2, #16 10 52 D1 002BB BNEQ 42$ ;42$ 0F 12 002BE 41$: PUSHAB G^ECHO_FLAG ;ECHO_FLAG 3477 00000000G 00 9F 002C0 PUSHAB -284(R5) ;SHOW_ECH_MSG FEE4 C5 9F 002C6 CALLS #2, 341(R6) ;#2, OUTPUT_TRUE_FALSE 0155 C6 02 FB 002CA 42$: CMPL R2, #1 ;R2, #1 3479 01 52 D1 002CF BEQL 43$ ;43$ 0A 13 002D2 CMPL R2, #10 ;R2, #10 0A 52 D1 002D4 BEQL 43$ ;43$ 05 13 002D7 CMPL R2, #16 ;R2, #16 10 52 D1 002D9 BNEQ 51$ ;51$ 6D 12 002DC 43$: MOVL #17694800, (R4) ;#17694800, OUTPUT_DESC 3481 64 010E0050 8F D0 002DE MOVAB -80(R4), 4(R4) ;OUTPUT_LINE, OUTPUT_DESC+4 04 A4 B0 A4 9E 002E5 MOVL G^PARITY_TYPE, R0 ;PARITY_TYPE, R0 3490 50 00000000G 00 D0 002EA CMPL R0, #2 ;R0, #2 02 50 D1 002F1 BNEQ 44$ ;44$ 07 12 002F4 MOVAB -244(R5), R1 ;PAR_EVEN, R1 51 FF0C C5 9E 002F6 BRB 47$ ;47$ 21 11 002FB 44$: CMPL R0, #3 ;R0, #3 03 50 D1 002FD BNEQ 45$ ;45$ 07 12 00300 MOVAB -232(R5), R1 ;PAR_ODD, R1 51 FF18 C5 9E 00302 BRB 47$ ;47$ 15 11 00307 45$: TSTL R0 ;R0 50 D5 00309 BNEQ 46$ ;46$ 07 12 0030B MOVAB -192(R5), R1 ;PAR_NONE, R1 51 FF40 C5 9E 0030D BRB 47$ ;47$ 0A 11 00312 46$: CMPL R0, #1 ;R0, #1 01 50 D1 00314 BNEQ 48$ ;48$ 09 12 00317 MOVAB -220(R5), R1 ;PAR_MARK, R1 51 FF24 C5 9E 00319 47$: PUSHL R1 ;R1 51 DD 0031E BRB 50$ ;50$ 11 11 00320 48$: CMPL R0, #4 ;R0, #4 04 50 D1 00322 BNEQ 49$ ;49$ 09 12 00325 MOVAB -204(R5), R0 ;PAR_SPACE, R0 50 FF34 C5 9E 00327 PUSHL R0 ;R0 50 DD 0032C BRB 50$ ;50$ 03 11 0032E 49$: MNEGL #1, -(SP) ;#1, -(SP) 7E 01 CE 00330 50$: PUSHL R4 ;R4 54 DD 00333 PUSHAB 8(R4) ;OUTPUT_SIZE 08 A4 9F 00335 PUSHAB -256(R5) ;SHOW_PAR_MSG FF00 C5 9F 00338 CALLS #4, (R8) ;#4, SYS$FAO 68 04 FB 0033C MOVW 8(R4), (R4) ;OUTPUT_SIZE, OUTPUT_DESC 3491 64 08 A4 B0 0033F PUSHL R4 ;R4 3492 54 DD 00343 CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 00345 MOVW R0, R3 ;R0, STATUS 53 50 B0 00348 51$: CMPL R2, #1 ;R2, #1 3495 01 52 D1 0034B BEQL 52$ ;52$ 0A 13 0034E CMPL R2, #11 ;R2, #11 0B 52 D1 00350 BEQL 52$ ;52$ 05 13 00353 CMPL R2, #15 ;R2, #15 0F 52 D1 00355 BNEQ 53$ ;53$ 22 12 00358 52$: PUSHAB -168(R5) ;SHOW_RTY_HDR 3497 FF58 C5 9F 0035A CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 0035E MOVW R0, R3 ;R0, STATUS 53 50 B0 00361 PUSHL G^SI_RETRIES ;SI_RETRIES 3498 00000000G 00 DD 00364 PUSHAB -128(R5) ;SHOW_RTY_INI_MSG 80 A5 9F 0036A CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 0036D PUSHL G^PKT_RETRIES ;PKT_RETRIES 3499 00000000G 00 DD 00370 PUSHAB -88(R5) ;SHOW_RTY_PKT_MSG A8 A5 9F 00376 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 00379 53$: CMPL R2, #1 ;R2, #1 3502 01 52 D1 0037C BEQL 54$ ;54$ 0D 13 0037F CMPL R2, #8 ;R2, #8 08 52 D1 00381 BEQL 54$ ;54$ 08 13 00384 CMPL R2, #15 ;R2, #15 0F 52 D1 00386 BEQL 54$ ;54$ 03 13 00389 BRW 62$ ;62$ 0082 31 0038B 54$: PUSHAB -36(R5) ;SHOW_SND_HDR 3504 DC A5 9F 0038E CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 00391 MOVW R0, R3 ;R0, STATUS 53 50 B0 00394 PUSHL G^SND_PKT_SIZE ;SND_PKT_SIZE 3505 00000000G 00 DD 00397 BGEQ 55$ ;55$ 03 18 0039D MNEGL (SP), (SP) ;(SP), (SP) 6E 6E CE 0039F 55$: PUSHL R5 ;R5 55 DD 003A2 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 003A4 PUSHL G^SND_NPAD ;SND_NPAD 3506 00000000G 00 DD 003A7 BGEQ 56$ ;56$ 03 18 003AD MNEGL (SP), (SP) ;(SP), (SP) 6E 6E CE 003AF 56$: PUSHAB 36(R5) ;SHOW_PAD_MSG 24 A5 9F 003B2 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 003B5 PUSHL G^SND_PADCHAR ;SND_PADCHAR 3507 00000000G 00 DD 003B8 BGEQ 57$ ;57$ 03 18 003BE MNEGL (SP), (SP) ;(SP), (SP) 6E 6E CE 003C0 57$: PUSHAB 80(R5) ;SHOW_PDC_MSG 50 A5 9F 003C3 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 003C6 PUSHL G^SND_TIMEOUT ;SND_TIMEOUT 3508 00000000G 00 DD 003C9 BGEQ 58$ ;58$ 03 18 003CF MNEGL (SP), (SP) ;(SP), (SP) 6E 6E CE 003D1 58$: PUSHAB 112(R5) ;SHOW_TIM_MSG 70 A5 9F 003D4 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 003D7 PUSHL G^SND_EOL ;SND_EOL 3509 00000000G 00 DD 003DA BGEQ 59$ ;59$ 03 18 003E0 MNEGL (SP), (SP) ;(SP), (SP) 6E 6E CE 003E2 59$: PUSHAB 160(R5) ;SHOW_EOL_MSG 00A0 C5 9F 003E5 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 003E9 PUSHL G^SND_QUOTE_CHR ;SND_QUOTE_CHR 3510 00000000G 00 DD 003EC BGEQ 60$ ;60$ 03 18 003F2 MNEGL (SP), (SP) ;(SP), (SP) 6E 6E CE 003F4 60$: PUSHAB 204(R5) ;SHOW_QUO_MSG 00CC C5 9F 003F7 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 003FB PUSHL G^SND_SOH ;SND_SOH 3511 00000000G 00 DD 003FE BGEQ 61$ ;61$ 03 18 00404 MNEGL (SP), (SP) ;(SP), (SP) 6E 6E CE 00406 61$: PUSHAB 244(R5) ;SHOW_SOH_MSG 00F4 C5 9F 00409 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 0040D 62$: CMPL R2, #1 ;R2, #1 3514 01 52 D1 00410 BEQL 63$ ;63$ 0A 13 00413 CMPL R2, #9 ;R2, #9 09 52 D1 00415 BEQL 63$ ;63$ 05 13 00418 CMPL R2, #15 ;R2, #15 0F 52 D1 0041A BNEQ 64$ ;64$ 6C 12 0041D 63$: PUSHAB -60(R5) ;SHOW_REC_HDR 3516 C4 A5 9F 0041F CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 00422 MOVW R0, R3 ;R0, STATUS 53 50 B0 00425 PUSHL G^RCV_PKT_SIZE ;RCV_PKT_SIZE 3517 00000000G 00 DD 00428 PUSHL R5 ;R5 55 DD 0042E CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 00430 PUSHL G^RCV_NPAD ;RCV_NPAD 3518 00000000G 00 DD 00433 PUSHAB 36(R5) ;SHOW_PAD_MSG 24 A5 9F 00439 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 0043C PUSHL G^RCV_PADCHAR ;RCV_PADCHAR 3519 00000000G 00 DD 0043F PUSHAB 80(R5) ;SHOW_PDC_MSG 50 A5 9F 00445 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 00448 PUSHL G^RCV_TIMEOUT ;RCV_TIMEOUT 3520 00000000G 00 DD 0044B PUSHAB 112(R5) ;SHOW_TIM_MSG 70 A5 9F 00451 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 00454 PUSHL G^RCV_EOL ;RCV_EOL 3521 00000000G 00 DD 00457 PUSHAB 160(R5) ;SHOW_EOL_MSG 00A0 C5 9F 0045D CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 00461 PUSHL G^RCV_QUOTE_CHR ;RCV_QUOTE_CHR 3522 00000000G 00 DD 00464 PUSHAB 204(R5) ;SHOW_QUO_MSG 00CC C5 9F 0046A CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 0046E PUSHL G^RCV_8QUOTE_CHR ;RCV_8QUOTE_CHR 3523 00000000G 00 DD 00471 PUSHAB 292(R5) ;SHOW_8QU_MSG 0124 C5 9F 00477 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 0047B PUSHL G^RCV_SOH ;RCV_SOH 3524 00000000G 00 DD 0047E PUSHAB 244(R5) ;SHOW_SOH_MSG 00F4 C5 9F 00484 CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 00488 64$: CMPL R2, #1 ;R2, #1 3527 01 52 D1 0048B BEQL 65$ ;65$ 05 13 0048E CMPL R2, #18 ;R2, #18 12 52 D1 00490 BNEQ 66$ ;66$ 45 12 00493 65$: PUSHAB 320(R5) ;SHOW_TRN_HDR 3529 0140 C5 9F 00495 CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 00499 MOVW R0, R3 ;R0, STATUS 53 50 B0 0049C MOVL #17694800, (R4) ;#17694800, OUTPUT_DESC 3530 64 010E0050 8F D0 0049F MOVAB -80(R4), 4(R4) ;OUTPUT_LINE, OUTPUT_DESC+4 04 A4 B0 A4 9E 004A6 PUSHAB G^TRANS_DELAY ;TRANS_DELAY 3531 00000000G 00 9F 004AB PUSHL #1 ;#1 01 DD 004B1 PUSHL R4 ;R4 54 DD 004B3 PUSHAB 8(R4) ;OUTPUT_SIZE 08 A4 9F 004B5 PUSHAB 372(R5) ;SHOW_TRD_MSG 0174 C5 9F 004B8 CALLS #5, (R8) ;#5, SYS$FAO 68 05 FB 004BC MOVW 8(R4), (R4) ;OUTPUT_SIZE, OUTPUT_DESC 3532 64 08 A4 B0 004BF PUSHL R4 ;R4 3533 54 DD 004C3 CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 004C5 MOVW R0, R3 ;R0, STATUS 53 50 B0 004C8 PUSHAB G^TRANS_ECHO_FLAG ;TRANS_ECHO_FLAG 3534 00000000G 00 9F 004CB PUSHAB 400(R5) ;SHOW_TRE_MSG 0190 C5 9F 004D1 CALLS #2, 341(R6) ;#2, OUTPUT_TRUE_FALSE 0155 C6 02 FB 004D5 66$: CMPL R2, #1 ;R2, #1 3537 01 52 D1 004DA BEQL 67$ ;67$ 05 13 004DD CMPL R2, #15 ;R2, #15 0F 52 D1 004DF BNEQ 68$ ;68$ 0D 12 004E2 67$: PUSHL G^SET_REPT_CHR ;SET_REPT_CHR 3539 00000000G 00 DD 004E4 PUSHAB 448(R5) ;SHOW_RPT_MSG 01C0 C5 9F 004EA CALLS #2, (R6) ;#2, OUTPUT_LONG_WORD 66 02 FB 004EE 68$: RET ; 3544 04 004F1 ; Routine Size: 1266 bytes, Routine Base: $CODE$ + 08A4 ; 3545 1 %SBTTL 'Command execution -- COMND_STATUS' ; 3546 1 ROUTINE COMND_STATUS : NOVALUE = ; 3547 1 ; 3548 1 !++ ; 3549 1 ! FUNCTIONAL DESCRIPTION: ; 3550 1 ! ; 3551 1 ! This routine will display the status of Kermit-32. ; 3552 1 ! ; 3553 1 ! CALLING SEQUENCE: ; 3554 1 ! ; 3555 1 ! COMND_STATUS (); ; 3556 1 ! ; 3557 1 ! INPUT PARAMETERS: ; 3558 1 ! ; 3559 1 ! None. ; 3560 1 ! ; 3561 1 ! IMPLICIT INPUTS: ; 3562 1 ! ; 3563 1 ! None. ; 3564 1 ! ; 3565 1 ! OUTPUT PARAMETERS: ; 3566 1 ! ; 3567 1 ! None. ; 3568 1 ! ; 3569 1 ! IMPLICIT OUTPUTS: ; 3570 1 ! ; 3571 1 ! None. ; 3572 1 ! ; 3573 1 ! COMPLETION CODES: ; 3574 1 ! ; 3575 1 ! None. ; 3576 1 ! ; 3577 1 ! SIDE EFFECTS: ; 3578 1 ! ; 3579 1 ! None. ; 3580 1 ! ; 3581 1 !-- ; 3582 1 ; 3583 2 BEGIN ; 3584 2 ; 3585 2 LOCAL ; 3586 2 STATUS, ! Status returned by system call ; 3587 2 POINTER, ! Pointer to the LAST_ERROR text ; 3588 2 CHAR_COUNT; ! Character count ; 3589 2 ; 3590 2 BIND ; 3591 2 TEXT_CR = %ASCID'', ; 3592 2 TEXT_BAUD = %ASCID' Effective data rate !ZL baud', ; 3593 2 TEXT_NAKS_SENT = %ASCID' NAKs received !ZL', ; 3594 2 TEXT_NAKS_RCV = %ASCID' NAKs sent !ZL', ; 3595 2 TEXT_PKTS_SENT = %ASCID' Packets sent !ZL', ; 3596 2 TEXT_PKTS_RCV = %ASCID' Packets received !ZL', ; 3597 2 TEXT_CHR_SENT = %ASCID' Characters sent !ZL', ; 3598 2 TEXT_DATA_CHAR_SENT = %ASCID' Data characters sent !ZL', ; 3599 2 TEXT_DATA_CHAR_RCV = %ASCID' Data characters received !ZL', ; 3600 2 TEXT_CHR_RCV = %ASCID' Characters received !ZL', ; 3601 2 TEXT_TOTAL_HDR = %ASCID'Totals since Kermit was started', ; 3602 2 TEXT_XFR_HDR = %ASCID'Totals for the last transfer'; ; 3603 2 ; 3604 2 STATUS = LIB$PUT_OUTPUT (TEXT_CR); ; 3605 2 STATUS = LIB$PUT_OUTPUT (TEXT_XFR_HDR); ; 3606 2 OUTPUT_LONG_WORD (TEXT_CHR_SENT, .SMSG_TOTAL_CHARS); ; 3607 2 OUTPUT_LONG_WORD (TEXT_DATA_CHAR_SENT, .SMSG_DATA_CHARS); ; 3608 2 OUTPUT_LONG_WORD (TEXT_NAKS_SENT, .SMSG_NAKS); ; 3609 2 OUTPUT_LONG_WORD (TEXT_PKTS_SENT, .SMSG_COUNT); ; 3610 2 OUTPUT_LONG_WORD (TEXT_CHR_RCV, .RMSG_TOTAL_CHARS); ; 3611 2 OUTPUT_LONG_WORD (TEXT_DATA_CHAR_RCV, .RMSG_DATA_CHARS); ; 3612 2 OUTPUT_LONG_WORD (TEXT_NAKS_RCV, .RMSG_NAKS); ; 3613 2 OUTPUT_LONG_WORD (TEXT_PKTS_RCV, .RMSG_COUNT); ; 3614 2 ; 3615 2 IF .XFR_TIME NEQ 0 ; 3616 2 THEN ; 3617 3 BEGIN ; 3618 3 LOCAL ; 3619 3 Data_Chars, ; 3620 3 Baud_Rate; ; 3621 3 ; 3622 3 IF .RMSG_DATA_CHARS LEQ .SMSG_DATA_CHARS ; 3623 3 THEN Data_Chars = .SMSG_DATA_CHARS ; 3624 3 ELSE Data_Chars = .RMSG_DATA_CHARS; ; 3625 3 ; 3626 3 Baud_Rate = .Data_Chars * 10 / ((.Xfr_Time + 500) / 1000); ; 3627 3 OUTPUT_LONG_WORD (TEXT_BAUD, .Baud_Rate); ; 3628 2 END; ; 3629 2 ! OUTPUT_LONG_WORD (TEXT_BAUD, .Baud_Rate); ; 3630 2 ! (((IF .RMSG_DATA_CHARS LEQ .SMSG_DATA_CHARS THEN .SMSG_DATA_CHARS ELSE .RMSG_DATA_CHARS)*10)/(( ; 3631 2 ! .XFR_TIME + 500)/1000))); ; 3632 2 ; 3633 2 STATUS = LIB$PUT_OUTPUT (TEXT_CR); ; 3634 2 STATUS = LIB$PUT_OUTPUT (TEXT_TOTAL_HDR); ; 3635 2 OUTPUT_LONG_WORD (TEXT_CHR_SENT, .SND_TOTAL_CHARS); ; 3636 2 OUTPUT_LONG_WORD (TEXT_DATA_CHAR_SENT, .SND_DATA_CHARS); ; 3637 2 OUTPUT_LONG_WORD (TEXT_NAKS_SENT, .SND_NAKS); ; 3638 2 OUTPUT_LONG_WORD (TEXT_PKTS_SENT, .SND_COUNT); ; 3639 2 OUTPUT_LONG_WORD (TEXT_CHR_RCV, .RCV_TOTAL_CHARS); ; 3640 2 OUTPUT_LONG_WORD (TEXT_DATA_CHAR_RCV, .RCV_DATA_CHARS); ; 3641 2 OUTPUT_LONG_WORD (TEXT_NAKS_RCV, .RCV_NAKS); ; 3642 2 OUTPUT_LONG_WORD (TEXT_PKTS_RCV, .RCV_COUNT); ; 3643 2 ; 3644 2 IF .TOTAL_TIME NEQ 0 ; 3645 2 THEN ; 3646 2 OUTPUT_LONG_WORD (TEXT_BAUD, ; 3647 2 (((.RCV_DATA_CHARS + .SND_DATA_CHARS)*10)/((.TOTAL_TIME + 500)/1000))); ; 3648 2 ; 3649 2 ! ; 3650 2 ! Output the error text if there is any ; 3651 2 ! ; 3652 2 POINTER = CH$PTR (LAST_ERROR); ; 3653 2 CHAR_COUNT = 0; ; 3654 2 ; 3655 2 WHILE CH$RCHAR_A (POINTER) NEQ CHR_NUL DO ; 3656 2 CHAR_COUNT = .CHAR_COUNT + 1; ; 3657 2 ; 3658 2 IF .CHAR_COUNT NEQ 0 ; 3659 2 THEN ; 3660 3 BEGIN ; 3661 3 INIT_STR_DESC (OUTPUT_DESC, OUTPUT_LINE, OUT_BFR_LENGTH); ; 3662 3 STATUS = $FAO (%ASCID'Last error: !AD', OUTPUT_SIZE, OUTPUT_DESC, .CHAR_COUNT, LAST_ERROR); ; 3663 3 ; 3664 3 IF NOT .STATUS ; 3665 3 THEN ; 3666 3 LIB$SIGNAL (.STATUS) ; 3667 3 ELSE ; 3668 4 BEGIN ; 3669 4 OUTPUT_DESC [DSC$W_LENGTH] = .OUTPUT_SIZE; ; 3670 4 STATUS = LIB$PUT_OUTPUT (OUTPUT_DESC); ; 3671 4 ; 3672 4 IF NOT .STATUS THEN LIB$SIGNAL (.STATUS); ; 3673 4 ; 3674 3 END; ; 3675 3 ; 3676 2 END; ; 3677 2 ; 3678 1 END; ! End of SHOW_STATUS .PSECT $PLIT$,NOWRT,NOEXE,2 P.AFD: .BLKB 0 ; 007BC P.AFC: .LONG 17694720 ; 010E0000 007BC .ADDRESS P.AFD ; 00000000' 007C0 P.AFF: .ASCII \ Effective data rate\<9>\!ZL baud\<0><0><0> ; 69 74 63 65 66 66 45 20 007C4 ; 20 61 74 61 64 20 65 76 007CC ; 4C 5A 21 09 65 74 61 72 007D4 ; 00 00 00 64 75 61 62 20 007DC P.AFE: .LONG 17694749 ; 010E001D 007E4 .ADDRESS P.AFF ; 00000000' 007E8 P.AFH: .ASCII \ NAKs received\<9><9>\!ZL\<0> ; 65 72 20 73 4B 41 4E 20 007EC ; 09 09 64 65 76 69 65 63 007F4 ; 00 4C 5A 21 007FC P.AFG: .LONG 17694739 ; 010E0013 00800 .ADDRESS P.AFH ; 00000000' 00804 P.AFJ: .ASCII \ NAKs sent\<9><9>\!ZL\<0> ; 65 73 20 73 4B 41 4E 20 00808 ; 00 4C 5A 21 09 09 74 6E 00810 P.AFI: .LONG 17694735 ; 010E000F 00818 .ADDRESS P.AFJ ; 00000000' 0081C P.AFL: .ASCII \ Packets sent\<9><9>\!ZL\<0><0> ; 73 74 65 6B 63 61 50 20 00820 ; 21 09 09 74 6E 65 73 20 00828 ; 00 00 4C 5A 00830 P.AFK: .LONG 17694738 ; 010E0012 00834 .ADDRESS P.AFL ; 00000000' 00838 P.AFN: .ASCII \ Packets received\<9>\!ZL\<0><0><0> ; 73 74 65 6B 63 61 50 20 0083C ; 65 76 69 65 63 65 72 20 00844 ; 00 00 00 4C 5A 21 09 64 0084C P.AFM: .LONG 17694741 ; 010E0015 00854 .ADDRESS P.AFN ; 00000000' 00858 P.AFP: .ASCII \ Characters sent\<9>\!ZL\ ; 74 63 61 72 61 68 43 20 0085C ; 74 6E 65 73 20 73 72 65 00864 ; 4C 5A 21 09 0086C P.AFO: .LONG 17694740 ; 010E0014 00870 .ADDRESS P.AFP ; 00000000' 00874 P.AFR: .ASCII \ Data characters sent\<9>\!ZL\<0><0><0> ; 68 63 20 61 74 61 44 20 00878 ; 73 72 65 74 63 61 72 61 00880 ; 5A 21 09 74 6E 65 73 20 00888 ; 00 00 00 4C 00890 P.AFQ: .LONG 17694745 ; 010E0019 00894 .ADDRESS P.AFR ; 00000000' 00898 P.AFT: .ASCII \ Data characters received !ZL\<0><0><0> ; 68 63 20 61 74 61 44 20 0089C ; 73 72 65 74 63 61 72 61 008A4 ; 65 76 69 65 63 65 72 20 008AC ; 00 00 00 4C 5A 21 20 64 008B4 P.AFS: .LONG 17694749 ; 010E001D 008BC .ADDRESS P.AFT ; 00000000' 008C0 P.AFV: .ASCII \ Characters received\<9>\!ZL\ ; 74 63 61 72 61 68 43 20 008C4 ; 65 63 65 72 20 73 72 65 008CC ; 4C 5A 21 09 64 65 76 69 008D4 P.AFU: .LONG 17694744 ; 010E0018 008DC .ADDRESS P.AFV ; 00000000' 008E0 P.AFX: .ASCII \Totals since Kermit was started\<0> ; 73 20 73 6C 61 74 6F 54 008E4 ; 72 65 4B 20 65 63 6E 69 008EC ; 20 73 61 77 20 74 69 6D 008F4 ; 00 64 65 74 72 61 74 73 008FC P.AFW: .LONG 17694751 ; 010E001F 00904 .ADDRESS P.AFX ; 00000000' 00908 P.AFZ: .ASCII \Totals for the last transfer\ ; 66 20 73 6C 61 74 6F 54 0090C ; 6C 20 65 68 74 20 72 6F 00914 ; 6E 61 72 74 20 74 73 61 0091C ; 72 65 66 73 00924 P.AFY: .LONG 17694748 ; 010E001C 00928 .ADDRESS P.AFZ ; 00000000' 0092C P.AGB: .ASCII \Last error: !AD\<0> ; 72 72 65 20 74 73 61 4C 00930 ; 00 44 41 21 20 3A 72 6F 00938 P.AGA: .LONG 17694735 ; 010E000F 00940 .ADDRESS P.AGB ; 00000000' 00944 U.1370= P.AFC U.1371= P.AFE U.1372= P.AFG U.1373= P.AFI U.1374= P.AFK U.1375= P.AFM U.1376= P.AFO U.1377= P.AFQ U.1378= P.AFS U.1379= P.AFU U.1380= P.AFW U.1381= P.AFY .PSECT $CODE$,NOWRT,2 ;COMND_STATUS U.8: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,- ;Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 3546 0FFC 00000 R11> ;R11 MOVAB G^RCV_DATA_CHARS, R11 ;RCV_DATA_CHARS, R11 5B 00000000G 00 9E 00002 MOVAB G^SND_DATA_CHARS, R10 ;SND_DATA_CHARS, R10 5A 00000000G 00 9E 00009 MOVAB G^RMSG_DATA_CHARS, R9 ;RMSG_DATA_CHARS, R9 59 00000000G 00 9E 00010 MOVAB G^SMSG_DATA_CHARS, R8 ;SMSG_DATA_CHARS, R8 58 00000000G 00 9E 00017 MOVAB G^LIB$PUT_OUTPUT, R7 ;LIB$PUT_OUTPUT, R7 57 00000000G 00 9E 0001E MOVAB G^U.54, R6 ;U.54, R6 56 00000000' 00 9E 00025 MOVAB W^U.1314, R5 ;U.1314, R5 55 F933 CF 9E 0002C MOVAB G^U.1370, R4 ;U.1370, R4 54 00000000' 00 9E 00031 PUSHL R4 ;R4 3604 54 DD 00038 CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 0003A MOVL R0, R3 ;R0, STATUS 53 50 D0 0003D PUSHAB 364(R4) ;TEXT_XFR_HDR 3605 016C C4 9F 00040 CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 00044 MOVL R0, R3 ;R0, STATUS 53 50 D0 00047 PUSHL G^SMSG_TOTAL_CHARS ;SMSG_TOTAL_CHARS 3606 00000000G 00 DD 0004A PUSHAB 180(R4) ;TEXT_CHR_SENT 00B4 C4 9F 00050 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 00054 PUSHL (R8) ;SMSG_DATA_CHARS 3607 68 DD 00057 PUSHAB 216(R4) ;TEXT_DATA_CHAR_SENT 00D8 C4 9F 00059 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 0005D PUSHL G^SMSG_NAKS ;SMSG_NAKS 3608 00000000G 00 DD 00060 PUSHAB 68(R4) ;TEXT_NAKS_SENT 44 A4 9F 00066 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 00069 PUSHL G^SMSG_COUNT ;SMSG_COUNT 3609 00000000G 00 DD 0006C PUSHAB 120(R4) ;TEXT_PKTS_SENT 78 A4 9F 00072 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 00075 PUSHL G^RMSG_TOTAL_CHARS ;RMSG_TOTAL_CHARS 3610 00000000G 00 DD 00078 PUSHAB 288(R4) ;TEXT_CHR_RCV 0120 C4 9F 0007E CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 00082 PUSHL (R9) ;RMSG_DATA_CHARS 3611 69 DD 00085 PUSHAB 256(R4) ;TEXT_DATA_CHAR_RCV 0100 C4 9F 00087 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 0008B PUSHL G^RMSG_NAKS ;RMSG_NAKS 3612 00000000G 00 DD 0008E PUSHAB 92(R4) ;TEXT_NAKS_RCV 5C A4 9F 00094 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 00097 PUSHL G^RMSG_COUNT ;RMSG_COUNT 3613 00000000G 00 DD 0009A PUSHAB 152(R4) ;TEXT_PKTS_RCV 0098 C4 9F 000A0 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 000A4 MOVL G^XFR_TIME, R0 ;XFR_TIME, R0 3615 50 00000000G 00 D0 000A7 BEQL 2$ ;2$ 29 13 000AE MOVL (R9), R1 ;RMSG_DATA_CHARS, R1 3622 51 69 D0 000B0 MOVL (R8), R2 ;SMSG_DATA_CHARS, R2 52 68 D0 000B3 CMPL R1, R2 ;R1, R2 52 51 D1 000B6 BGTR 1$ ;1$ 03 14 000B9 MOVL R2, R1 ;R2, DATA_CHARS 3623 51 52 D0 000BB 1$: MULL2 #10, R1 ;#10, R1 3626 51 0A C4 000BE MOVAB 500(R0), R0 ;500(R0), R0 50 01F4 C0 9E 000C1 DIVL2 #1000, R0 ;#1000, R0 50 000003E8 8F C6 000C6 DIVL3 R0, R1, R0 ;R0, R1, BAUD_RATE 51 50 C7 000CD ; 50 000D0 PUSHL R0 ;BAUD_RATE 3627 50 DD 000D1 PUSHAB 40(R4) ;TEXT_BAUD 28 A4 9F 000D3 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 000D6 2$: PUSHL R4 ;R4 3633 54 DD 000D9 CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 000DB MOVL R0, R3 ;R0, STATUS 53 50 D0 000DE PUSHAB 328(R4) ;TEXT_TOTAL_HDR 3634 0148 C4 9F 000E1 CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 000E5 MOVL R0, R3 ;R0, STATUS 53 50 D0 000E8 PUSHL G^SND_TOTAL_CHARS ;SND_TOTAL_CHARS 3635 00000000G 00 DD 000EB PUSHAB 180(R4) ;TEXT_CHR_SENT 00B4 C4 9F 000F1 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 000F5 PUSHL (R10) ;SND_DATA_CHARS 3636 6A DD 000F8 PUSHAB 216(R4) ;TEXT_DATA_CHAR_SENT 00D8 C4 9F 000FA CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 000FE PUSHL G^SND_NAKS ;SND_NAKS 3637 00000000G 00 DD 00101 PUSHAB 68(R4) ;TEXT_NAKS_SENT 44 A4 9F 00107 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 0010A PUSHL G^SND_COUNT ;SND_COUNT 3638 00000000G 00 DD 0010D PUSHAB 120(R4) ;TEXT_PKTS_SENT 78 A4 9F 00113 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 00116 PUSHL G^RCV_TOTAL_CHARS ;RCV_TOTAL_CHARS 3639 00000000G 00 DD 00119 PUSHAB 288(R4) ;TEXT_CHR_RCV 0120 C4 9F 0011F CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 00123 PUSHL (R11) ;RCV_DATA_CHARS 3640 6B DD 00126 PUSHAB 256(R4) ;TEXT_DATA_CHAR_RCV 0100 C4 9F 00128 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 0012C PUSHL G^RCV_NAKS ;RCV_NAKS 3641 00000000G 00 DD 0012F PUSHAB 92(R4) ;TEXT_NAKS_RCV 5C A4 9F 00135 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 00138 PUSHL G^RCV_COUNT ;RCV_COUNT 3642 00000000G 00 DD 0013B PUSHAB 152(R4) ;TEXT_PKTS_RCV 0098 C4 9F 00141 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 00145 MOVL G^TOTAL_TIME, R0 ;TOTAL_TIME, R0 3644 50 00000000G 00 D0 00148 BEQL 3$ ;3$ 1D 13 0014F ADDL3 (R10), (R11), R1 ;SND_DATA_CHARS, RCV_DATA_CHARS, R1 3647 6B 6A C1 00151 ; 51 00154 MULL2 #10, R1 ;#10, R1 51 0A C4 00155 MOVAB 500(R0), R0 ;500(R0), R0 50 01F4 C0 9E 00158 DIVL2 #1000, R0 ;#1000, R0 50 000003E8 8F C6 0015D DIVL3 R0, R1, -(SP) ;R0, R1, -(SP) 51 50 C7 00164 ; 7E 00167 PUSHAB 40(R4) ;TEXT_BAUD 3646 28 A4 9F 00168 CALLS #2, (R5) ;#2, OUTPUT_LONG_WORD 65 02 FB 0016B 3$: MOVAB G^LAST_ERROR, R1 ;LAST_ERROR, POINTER 3652 51 00000000G 00 9E 0016E CLRL R0 ;CHAR_COUNT 3653 50 D4 00175 4$: MOVZBL (R1)+, R2 ;(POINTER)+, R2 3655 52 81 9A 00177 BEQL 5$ ;5$ 04 13 0017A INCL R0 ;CHAR_COUNT 3656 50 D6 0017C BRB 4$ ;4$ F7 11 0017E 5$: TSTL R0 ;CHAR_COUNT 3658 50 D5 00180 BEQL 7$ ;7$ 42 13 00182 MOVL #17694800, (R6) ;#17694800, OUTPUT_DESC 3661 66 010E0050 8F D0 00184 MOVAB -80(R6), 4(R6) ;OUTPUT_LINE, OUTPUT_DESC+4 04 A6 B0 A6 9E 0018B PUSHAB G^LAST_ERROR ;LAST_ERROR 3662 00000000G 00 9F 00190 PUSHL R0 ;CHAR_COUNT 50 DD 00196 PUSHL R6 ;R6 56 DD 00198 PUSHAB 8(R6) ;OUTPUT_SIZE 08 A6 9F 0019A PUSHAB 388(R4) ;P.AGA 0184 C4 9F 0019D CALLS #5, G^SYS$FAO ;#5, SYS$FAO 00000000G 00 05 FB 001A1 MOVL R0, R3 ;R0, STATUS 53 50 D0 001A8 BLBC R3, 6$ ;STATUS, 6$ 3664 0F 53 E9 001AB MOVW 8(R6), (R6) ;OUTPUT_SIZE, OUTPUT_DESC 3669 66 08 A6 B0 001AE PUSHL R6 ;R6 3670 56 DD 001B2 CALLS #1, (R7) ;#1, LIB$PUT_OUTPUT 67 01 FB 001B4 MOVL R0, R3 ;R0, STATUS 53 50 D0 001B7 BLBS R3, 7$ ;STATUS, 7$ 3672 09 53 E8 001BA 6$: PUSHL R3 ;STATUS 53 DD 001BD CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL 00000000G 00 01 FB 001BF 7$: RET ; 3678 04 001C6 ; Routine Size: 455 bytes, Routine Base: $CODE$ + 0D96 ; 3679 1 %SBTTL 'GET_REM_ARGS - Get extra arguments for remote commands' ; 3680 1 ROUTINE GET_REM_ARGS (LOCAL_FLAG) = ; 3681 1 ; 3682 1 !++ ; 3683 1 ! FUNCTIONAL DESCRIPTION: ; 3684 1 ! ; 3685 1 ! This routine will get any extra arguments required for remote commands. ; 3686 1 !It will prompt the user and get the input from SYS$COMMAND:. ; 3687 1 ! ; 3688 1 ! CALLING SEQUENCE: ; 3689 1 ! ; 3690 1 ! STATUS = GET_REM_ARGS (LOCAL_FLAG); ; 3691 1 ! ; 3692 1 ! INPUT PARAMETERS: ; 3693 1 ! ; 3694 1 ! LOCAL_FLAG - If true, this is for a LOCAL xxx command. Only get the ; 3695 1 ! arguments we know we need for local commands. Otherwise ; 3696 1 ! get all possible arguments. ; 3697 1 ! ; 3698 1 ! IMPLICIT INPUTS: ; 3699 1 ! ; 3700 1 ! REM_TYPE - Type of remote command to get arguments for. ; 3701 1 ! ; 3702 1 ! OUPTUT PARAMETERS: ; 3703 1 ! ; 3704 1 ! None. ; 3705 1 ! ; 3706 1 ! IMPLICIT OUTPUTS: ; 3707 1 ! ; 3708 1 ! GEN_xDATA, GEN_xSIZE - Text and sizes of arguments ; 3709 1 ! ; 3710 1 ! COMPLETION CODES: ; 3711 1 ! ; 3712 1 ! Status values from subroutines called if in error. ; 3713 1 ! ; 3714 1 ! SIDE EFFECTS: ; 3715 1 ! ; 3716 1 ! None. ; 3717 1 ! ; 3718 1 !-- ; 3719 1 ; 3720 2 BEGIN ; 3721 2 ; 3722 2 EXTERNAL ROUTINE ; 3723 2 GET_COMMAND; ! Get line from SYS$COMMAND: ; 3724 2 ; 3725 2 LOCAL ; 3726 2 GEN_2DESC : BLOCK [8, BYTE], ! Descriptor for second argument ; 3727 2 GEN_3DESC : BLOCK [8, BYTE], ! Descriptor for third argument ; 3728 2 STATUS; ! Random status values ; 3729 2 ; 3730 2 ! ; 3731 2 ! Set up descriptors for second and third arguments ; 3732 2 ! ; 3733 2 INIT_STR_DESC (GEN_2DESC, GEN_2DATA, MAX_MSG); ; 3734 2 INIT_STR_DESC (GEN_3DESC, GEN_3DATA, MAX_MSG); ; 3735 2 ; 3736 2 SELECTONE .REM_TYPE OF ; 3737 2 SET ; 3738 2 ; 3739 2 [GC_CONNECT] : ; 3740 2 ; 3741 2 IF NOT .LOCAL_FLAG AND .GEN_1SIZE GTR 0 ; 3742 2 THEN ; 3743 2 RETURN GET_COMMAND (GEN_2DESC, %ASCID'Password: ', ; 3744 2 GEN_2SIZE, FALSE); ; 3745 2 ; 3746 2 [GC_COPY, GC_RENAME] : ; 3747 2 ; 3748 2 WHILE TRUE DO ; 3749 3 BEGIN ; 3750 3 STATUS = GET_COMMAND (GEN_2DESC, %ASCID'New file: ', GEN_2SIZE, TRUE); ; 3751 3 ; 3752 3 IF NOT .STATUS OR .GEN_2SIZE NEQ 0 THEN RETURN .STATUS; ; 3753 3 ; 3754 2 END; ; 3755 2 ; 3756 2 [GC_LGN] : ; 3757 3 BEGIN ; 3758 3 STATUS = GET_COMMAND (GEN_3DESC, %ASCID'Account: ', GEN_3SIZE, TRUE); ; 3759 3 ; 3760 3 IF NOT .STATUS THEN RETURN .STATUS; ; 3761 3 ; 3762 3 RETURN GET_COMMAND (GEN_2DESC, %ASCID'Password: ', GEN_2SIZE, FALSE); ; 3763 2 END; ; 3764 2 ; 3765 2 [GC_SEND_MSG] : ; 3766 2 RETURN GET_COMMAND (GEN_2DESC, %ASCID'Message: ', GEN_2SIZE, TRUE); ; 3767 2 ; 3768 2 [GC_WHO] : ; 3769 2 ; 3770 2 IF NOT .LOCAL_FLAG THEN RETURN GET_COMMAND (GEN_2DESC, %ASCID'Options: ', GEN_2SIZE, TRUE); ; 3771 2 ; 3772 2 TES; ; 3773 2 ; 3774 2 ! ; 3775 2 ! If we fall out of the SELECT, we don't need any arguments ; 3776 2 ! ; 3777 2 RETURN TRUE; ; 3778 1 END; ! End of GET_REM_ARGS .PSECT $PLIT$,NOWRT,NOEXE,2 P.AGD: .ASCII \Password: \<0><0> ; 64 72 6F 77 73 73 61 50 00948 ; 00 00 20 3A 00950 P.AGC: .LONG 17694730 ; 010E000A 00954 .ADDRESS P.AGD ; 00000000' 00958 P.AGF: .ASCII \New file: \<0><0> ; 65 6C 69 66 20 77 65 4E 0095C ; 00 00 20 3A 00964 P.AGE: .LONG 17694730 ; 010E000A 00968 .ADDRESS P.AGF ; 00000000' 0096C P.AGH: .ASCII \Account: \<0><0><0> ; 3A 74 6E 75 6F 63 63 41 00970 ; 00 00 00 20 00978 P.AGG: .LONG 17694729 ; 010E0009 0097C .ADDRESS P.AGH ; 00000000' 00980 P.AGJ: .ASCII \Password: \<0><0> ; 64 72 6F 77 73 73 61 50 00984 ; 00 00 20 3A 0098C P.AGI: .LONG 17694730 ; 010E000A 00990 .ADDRESS P.AGJ ; 00000000' 00994 P.AGL: .ASCII \Message: \<0><0><0> ; 3A 65 67 61 73 73 65 4D 00998 ; 00 00 00 20 009A0 P.AGK: .LONG 17694729 ; 010E0009 009A4 .ADDRESS P.AGL ; 00000000' 009A8 P.AGN: .ASCII \Options: \<0><0><0> ; 3A 73 6E 6F 69 74 70 4F 009AC ; 00 00 00 20 009B4 P.AGM: .LONG 17694729 ; 010E0009 009B8 .ADDRESS P.AGN ; 00000000' 009BC .PSECT $CODE$,NOWRT,2 ;GET_REM_ARGS U.11: .WORD ^M<R2,R3,R4> ;Save R2,R3,R4 3680 001C 00000 MOVAB G^GET_COMMAND, R4 ;GET_COMMAND, R4 54 00000000G 00 9E 00002 MOVAB G^P.AGC, R3 ;P.AGC, R3 53 00000000' 00 9E 00009 MOVAB G^GEN_2SIZE, R2 ;GEN_2SIZE, R2 52 00000000G 00 9E 00010 SUBL2 #12, SP ;#12, SP 5E 0C C2 00017 MOVL #17695722, 4(SP) ;#17695722, GEN_2DESC 3733 04 AE 010E03EA 8F D0 0001A MOVAB G^GEN_2DATA, 8(SP) ;GEN_2DATA, GEN_2DESC+4 08 AE 00000000G 00 9E 00022 PUSHL #17695722 ;#17695722 3734 010E03EA 8F DD 0002A MOVAB G^GEN_3DATA, 4(SP) ;GEN_3DATA, GEN_3DESC+4 04 AE 00000000G 00 9E 00030 MOVL G^U.51, R1 ;U.51, R1 3736 51 00000000' 00 D0 00038 CMPL R1, #9 ;R1, #9 3739 09 51 D1 0003F BNEQ 1$ ;1$ 14 12 00042 BLBS 4(AP), 7$ ;LOCAL_FLAG, 7$ 3741 76 04 AC E8 00044 TSTL G^GEN_1SIZE ;GEN_1SIZE 00000000G 00 D5 00048 BLEQ 7$ ;7$ 6E 15 0004E CLRL -(SP) ;-(SP) 3744 7E D4 00050 PUSHL R2 ;R2 52 DD 00052 PUSHL R3 ;R3 3743 53 DD 00054 BRB 6$ ;6$ 5F 11 00056 1$: CMPL R1, #10 ;R1, #10 3746 0A 51 D1 00058 BLSS 3$ ;3$ 1A 19 0005B CMPL R1, #11 ;R1, #11 0B 51 D1 0005D BGTR 3$ ;3$ 15 14 00060 2$: PUSHL #1 ;#1 3750 01 DD 00062 PUSHL R2 ;R2 52 DD 00064 PUSHAB 20(R3) ;P.AGE 14 A3 9F 00066 PUSHAB 20(SP) ;GEN_2DESC 14 AE 9F 00069 CALLS #4, (R4) ;#4, GET_COMMAND 64 04 FB 0006C BLBC R0, 8$ ;STATUS, 8$ 3752 4F 50 E9 0006F TSTL (R2) ;GEN_2SIZE 62 D5 00072 BEQL 2$ ;2$ EC 13 00074 RET ; 04 00076 3$: CMPL R1, #8 ;R1, #8 3756 08 51 D1 00077 BNEQ 4$ ;4$ 1D 12 0007A PUSHL #1 ;#1 3758 01 DD 0007C PUSHAB G^GEN_3SIZE ;GEN_3SIZE 00000000G 00 9F 0007E PUSHAB 40(R3) ;P.AGG 28 A3 9F 00084 PUSHAB 12(SP) ;GEN_3DESC 0C AE 9F 00087 CALLS #4, (R4) ;#4, GET_COMMAND 64 04 FB 0008A BLBC R0, 8$ ;STATUS, 8$ 3760 31 50 E9 0008D CLRL -(SP) ;-(SP) 3762 7E D4 00090 PUSHL R2 ;R2 52 DD 00092 PUSHAB 60(R3) ;P.AGI 3C A3 9F 00094 BRB 6$ ;6$ 1E 11 00097 4$: CMPL R1, #13 ;R1, #13 3765 0D 51 D1 00099 BNEQ 5$ ;5$ 09 12 0009C PUSHL #1 ;#1 3766 01 DD 0009E PUSHL R2 ;R2 52 DD 000A0 PUSHAB 80(R3) ;P.AGK 50 A3 9F 000A2 BRB 6$ ;6$ 10 11 000A5 5$: CMPL R1, #12 ;R1, #12 3768 0C 51 D1 000A7 BNEQ 7$ ;7$ 12 12 000AA BLBS 4(AP), 7$ ;LOCAL_FLAG, 7$ 3770 0E 04 AC E8 000AC PUSHL #1 ;#1 01 DD 000B0 PUSHL R2 ;R2 52 DD 000B2 PUSHAB 100(R3) ;P.AGM 64 A3 9F 000B4 6$: PUSHAB 20(SP) ;GEN_2DESC 14 AE 9F 000B7 CALLS #4, (R4) ;#4, GET_COMMAND 64 04 FB 000BA RET ; 04 000BD 7$: MOVL #1, R0 ;#1, R0 3777 50 01 D0 000BE 8$: RET ; 04 000C1 ; Routine Size: 194 bytes, Routine Base: $CODE$ + 0F5D ; 3779 1 %SBTTL 'TPARSE support -- STORE_BLOCKSIZE' ; 3780 1 ROUTINE STORE_BLOCKSIZE = ; 3781 1 ; 3782 1 !++ ; 3783 1 ! FUNCTIONAL DESCRIPTION: ; 3784 1 ! ; 3785 1 ! This routine will store the blocksize to be used when creating ; 3786 1 ! BINARY and FIXED files. ; 3787 1 ! ; 3788 1 ! CALLING SEQUENCE: ; 3789 1 ! ; 3790 1 ! Standard LIB$TPARSE routine call. ; 3791 1 ! ; 3792 1 ! INPUT PARAMETERS: ; 3793 1 ! ; 3794 1 ! None. ; 3795 1 ! ; 3796 1 ! IMPLICIT INPUTS: ; 3797 1 ! ; 3798 1 ! None. ; 3799 1 ! ; 3800 1 ! OUTPUT PARAMETERS: ; 3801 1 ! ; 3802 1 ! None. ; 3803 1 ! ; 3804 1 ! IMPLICIT OUTPUTS: ; 3805 1 ! ; 3806 1 ! None. ; 3807 1 ! ; 3808 1 ! COMPLETION CODES: ; 3809 1 ! ; 3810 1 ! None. ; 3811 1 ! ; 3812 1 ! SIDE EFFECTS: ; 3813 1 ! ; 3814 1 ! None. ; 3815 1 ! ; 3816 1 !-- ; 3817 1 ; 3818 2 BEGIN ; 3819 2 TPARSE_ARGS; ; 3820 2 ! file_blocksize = .AP [TPA$L_PARAM]; ; 3821 2 file_blocksize_set = 1; ; 3822 2 RETURN SS$_NORMAL; ; 3823 1 END; ! End of STORE_BLOCKSIZE ;STORE_BLOCKSIZE U.17: .WORD ^M<> ;Save nothing 3780 0000 00000 MOVL #1, G^FILE_BLOCKSIZE_SET ;#1, FILE_BLOCKSIZE_SET 3821 00000000G 00 01 D0 00002 MOVL #1, R0 ;#1, R0 3822 50 01 D0 00009 RET ; 04 0000C ; Routine Size: 13 bytes, Routine Base: $CODE$ + 101F ; 3824 1 %SBTTL 'TPARSE support -- STORE_DEBUG' ; 3825 1 ROUTINE STORE_DEBUG = ; 3826 1 ; 3827 1 !++ ; 3828 1 ! FUNCTIONAL DESCRIPTION: ; 3829 1 ! ; 3830 1 ! This routine will store the debug flag into the DEBUG_FLAG ; 3831 1 ! location. ; 3832 1 ! ; 3833 1 ! CALLING SEQUENCE: ; 3834 1 ! ; 3835 1 ! Standard LIB$TPARSE routine call. ; 3836 1 ! ; 3837 1 ! INPUT PARAMETERS: ; 3838 1 ! ; 3839 1 ! None. ; 3840 1 ! ; 3841 1 ! IMPLICIT INPUTS: ; 3842 1 ! ; 3843 1 ! None. ; 3844 1 ! ; 3845 1 ! OUTPUT PARAMETERS: ; 3846 1 ! ; 3847 1 ! None. ; 3848 1 ! ; 3849 1 ! IMPLICIT OUTPUTS: ; 3850 1 ! ; 3851 1 ! None. ; 3852 1 ! ; 3853 1 ! COMPLETION CODES: ; 3854 1 ! ; 3855 1 ! None. ; 3856 1 ! ; 3857 1 ! SIDE EFFECTS: ; 3858 1 ! ; 3859 1 ! None. ; 3860 1 ! ; 3861 1 !-- ; 3862 1 ; 3863 2 BEGIN ; 3864 2 TPARSE_ARGS; ; 3865 2 DEBUG_FLAG = .AP [TPA$L_PARAM]; ; 3866 2 RETURN SS$_NORMAL; ; 3867 1 END; ! End of STORE_DEBUG ;STORE_DEBUG U.18: .WORD ^M<> ;Save nothing 3825 0000 00000 MOVL 32(AP), G^DEBUG_FLAG ;32(AP), DEBUG_FLAG 3865 00000000G 00 20 AC D0 00002 MOVL #1, R0 ;#1, R0 3866 50 01 D0 0000A RET ; 04 0000D ; Routine Size: 14 bytes, Routine Base: $CODE$ + 102C ; 3868 1 %SBTTL 'TPARSE support -- STORE_TR_DELAY' ; 3869 1 ROUTINE STORE_TR_DELAY = ! and below ; 3870 1 ; 3871 1 !++ ; 3872 1 ! FUNCTIONAL DESCRIPTION: ; 3873 1 ! ; 3874 1 ! This routine will store the transmit delay into the ; 3875 1 ! TRANS_DELAY location. ; 3876 1 ! ; 3877 1 ! CALLING SEQUENCE: ; 3878 1 ! ; 3879 1 ! Standard LIB$TPARSE routine call. ; 3880 1 ! ; 3881 1 ! INPUT PARAMETERS: ; 3882 1 ! ; 3883 1 ! None. ; 3884 1 ! ; 3885 1 ! IMPLICIT INPUTS: ; 3886 1 ! ; 3887 1 ! None. ; 3888 1 ! ; 3889 1 ! OUTPUT PARAMETERS: ; 3890 1 ! ; 3891 1 ! None. ; 3892 1 ! ; 3893 1 ! IMPLICIT OUTPUTS: ; 3894 1 ! ; 3895 1 ! None. ; 3896 1 ! ; 3897 1 ! COMPLETION CODES: ; 3898 1 ! ; 3899 1 ! None. ; 3900 1 ! ; 3901 1 ! SIDE EFFECTS: ; 3902 1 ! ; 3903 1 ! None. ; 3904 1 ! ; 3905 1 !-- ; 3906 1 ; 3907 2 BEGIN ! ; 3908 2 TPARSE_ARGS; ! ; 3909 2 TRANS_DELAY = .AP [TPA$L_PARAM]; ! ; 3910 2 RETURN SS$_NORMAL; ! ; 3911 1 END; ! End of STORE_TR_DELAY ;STORE_TR_DELAY U.20: .WORD ^M<> ;Save nothing 3869 0000 00000 MOVL 32(AP), G^TRANS_DELAY ;32(AP), TRANS_DELAY 3909 00000000G 00 20 AC D0 00002 MOVL #1, R0 ;#1, R0 3910 50 01 D0 0000A RET ; 04 0000D ; Routine Size: 14 bytes, Routine Base: $CODE$ + 103A ; 3912 1 %SBTTL 'TPARSE support -- STORE_TR_ECHO' ; 3913 1 ROUTINE STORE_TR_ECHO = ! and below ; 3914 1 ; 3915 1 !++ ; 3916 1 ! FUNCTIONAL DESCRIPTION: ; 3917 1 ! ; 3918 1 ! This routine will store the transmit echo flag into the ; 3919 1 ! TRANS_ECHO_FLAG location. ; 3920 1 ! ; 3921 1 ! CALLING SEQUENCE: ; 3922 1 ! ; 3923 1 ! Standard LIB$TPARSE routine call. ; 3924 1 ! ; 3925 1 ! INPUT PARAMETERS: ; 3926 1 ! ; 3927 1 ! None. ; 3928 1 ! ; 3929 1 ! IMPLICIT INPUTS: ; 3930 1 ! ; 3931 1 ! None. ; 3932 1 ! ; 3933 1 ! OUTPUT PARAMETERS: ; 3934 1 ! ; 3935 1 ! None. ; 3936 1 ! ; 3937 1 ! IMPLICIT OUTPUTS: ; 3938 1 ! ; 3939 1 ! None. ; 3940 1 ! ; 3941 1 ! COMPLETION CODES: ; 3942 1 ! ; 3943 1 ! None. ; 3944 1 ! ; 3945 1 ! SIDE EFFECTS: ; 3946 1 ! ; 3947 1 ! None. ; 3948 1 ! ; 3949 1 !-- ; 3950 1 ; 3951 2 BEGIN ! ; 3952 2 TPARSE_ARGS; ! ; 3953 2 TRANS_ECHO_FLAG = .AP [TPA$L_PARAM]; ! ; 3954 2 RETURN SS$_NORMAL; ! ; 3955 1 END; ! End of STORE_TR_ECHO ;STORE_TR_ECHO U.19: .WORD ^M<> ;Save nothing 3913 0000 00000 MOVL 32(AP), G^TRANS_ECHO_FLAG ;32(AP), TRANS_ECHO_FLAG 3953 00000000G 00 20 AC D0 00002 MOVL #1, R0 ;#1, R0 3954 50 01 D0 0000A RET ; 04 0000D ; Routine Size: 14 bytes, Routine Base: $CODE$ + 1048 ; 3956 1 ; 3957 1 %SBTTL 'TPARSE support -- STORE_IBM' ; 3958 1 ROUTINE STORE_IBM = ; 3959 1 ; 3960 1 !++ ; 3961 1 ! FUNCTIONAL DESCRIPTION: ; 3962 1 ! ; 3963 1 ! This routine will store the IBM flag into the IBM_FLAG ; 3964 1 ! location. ; 3965 1 ! ; 3966 1 ! CALLING SEQUENCE: ; 3967 1 ! ; 3968 1 ! Standard LIB$TPARSE routine call. ; 3969 1 ! ; 3970 1 ! INPUT PARAMETERS: ; 3971 1 ! ; 3972 1 ! None. ; 3973 1 ! ; 3974 1 ! IMPLICIT INPUTS: ; 3975 1 ! ; 3976 1 ! None. ; 3977 1 ! ; 3978 1 ! OUTPUT PARAMETERS: ; 3979 1 ! ; 3980 1 ! None. ; 3981 1 ! ; 3982 1 ! IMPLICIT OUTPUTS: ; 3983 1 ! ; 3984 1 ! None. ; 3985 1 ! ; 3986 1 ! COMPLETION CODES: ; 3987 1 ! ; 3988 1 ! None. ; 3989 1 ! ; 3990 1 ! SIDE EFFECTS: ; 3991 1 ! ; 3992 1 ! None. ; 3993 1 ! ; 3994 1 !-- ; 3995 1 ; 3996 2 BEGIN ; 3997 2 ; 3998 2 EXTERNAL LITERAL ; 3999 2 IBM_MODE_ECHO : WEAK, ! IBM mode echo value ; 4000 2 IBM_MODE_PARITY : WEAK, ! Default parity ; 4001 2 IBM_MODE_CHARACTER : WEAK; ! And handshake character for ; 4002 2 ; 4003 2 ! IBM mode ; 4004 2 TPARSE_ARGS; ; 4005 2 ; 4006 2 IF .AP [TPA$L_PARAM] ; 4007 2 THEN ; 4008 3 BEGIN ; 4009 3 IBM_CHAR = (IF IBM_MODE_CHARACTER NEQ 0 THEN IBM_MODE_CHARACTER ELSE CHR_DC1); ; 4010 3 PARITY_TYPE = (IF IBM_MODE_PARITY NEQ 0 THEN IBM_MODE_PARITY ELSE PR_MARK); ; 4011 3 ECHO_FLAG = (IF IBM_MODE_ECHO NEQ 0 THEN IBM_MODE_ECHO ELSE TRUE); ; 4012 3 END ; 4013 2 ELSE ; 4014 3 BEGIN ; 4015 3 IBM_CHAR = -1; ! Turn IBM mode off ; 4016 3 ECHO_FLAG = FALSE; ! No local echo ; 4017 3 PARITY_TYPE = PR_NONE; ! and no parity ; 4018 2 END; ; 4019 2 ; 4020 2 RETURN SS$_NORMAL; ; 4021 1 END; ! End of STORE_IBM .WEAK IBM_MODE_ECHO, IBM_MODE_PARITY, IBM_MODE_CHARACTER ;STORE_IBM U.27: .WORD ^M<R2,R3,R4,R5,R6,R7> ;Save R2,R3,R4,R5,R6,R7 3958 00FC 00000 MOVL #IBM_MODE_CHARACTER, R7 ;#IBM_MODE_CHARACTER, R7 57 00000000G 8F D0 00002 MOVAB G^ECHO_FLAG, R6 ;ECHO_FLAG, R6 56 00000000G 00 9E 00009 MOVL #IBM_MODE_ECHO, R5 ;#IBM_MODE_ECHO, R5 55 00000000G 8F D0 00010 MOVAB G^PARITY_TYPE, R4 ;PARITY_TYPE, R4 54 00000000G 00 9E 00017 MOVL #IBM_MODE_PARITY, R3 ;#IBM_MODE_PARITY, R3 53 00000000G 8F D0 0001E MOVAB G^IBM_CHAR, R2 ;IBM_CHAR, R2 52 00000000G 00 9E 00025 BLBC 32(AP), 7$ ;32(AP), 7$ 4006 2F 20 AC E9 0002C TSTL R7 ;R7 4009 57 D5 00030 BEQL 1$ ;1$ 05 13 00032 MOVL R7, R0 ;R7, R0 50 57 D0 00034 BRB 2$ ;2$ 03 11 00037 1$: MOVL #17, R0 ;#17, R0 50 11 D0 00039 2$: MOVL R0, (R2) ;R0, IBM_CHAR 62 50 D0 0003C TSTL R3 ;R3 4010 53 D5 0003F BEQL 3$ ;3$ 05 13 00041 MOVL R3, R0 ;R3, R0 50 53 D0 00043 BRB 4$ ;4$ 03 11 00046 3$: MOVL #1, R0 ;#1, R0 50 01 D0 00048 4$: MOVL R0, (R4) ;R0, PARITY_TYPE 64 50 D0 0004B TSTL R5 ;R5 4011 55 D5 0004E BEQL 5$ ;5$ 05 13 00050 MOVL R5, R0 ;R5, R0 50 55 D0 00052 BRB 6$ ;6$ 03 11 00055 5$: MOVL #1, R0 ;#1, R0 50 01 D0 00057 6$: MOVL R0, (R6) ;R0, ECHO_FLAG 66 50 D0 0005A BRB 8$ ;8$ 07 11 0005D 7$: MNEGL #1, (R2) ;#1, IBM_CHAR 4015 62 01 CE 0005F CLRL (R6) ;ECHO_FLAG 4016 66 D4 00062 CLRL (R4) ;PARITY_TYPE 4017 64 D4 00064 8$: MOVL #1, R0 ;#1, R0 4020 50 01 D0 00066 RET ; 04 00069 ; Routine Size: 106 bytes, Routine Base: $CODE$ + 1056 ; 4022 1 %SBTTL 'TPARSE support -- STORE_ABT' ; 4023 1 ROUTINE STORE_ABT = ; 4024 1 ; 4025 1 !++ ; 4026 1 ! FUNCTIONAL DESCRIPTION: ; 4027 1 ! ; 4028 1 ! This routine will store the aborted file disposition into ABT_FLAG ; 4029 1 ! ; 4030 1 ! CALLING SEQUENCE: ; 4031 1 ! ; 4032 1 ! Standard LIB$TPARSE routine call. ; 4033 1 ! ; 4034 1 ! INPUT PARAMETERS: ; 4035 1 ! ; 4036 1 ! None. ; 4037 1 ! ; 4038 1 ! IMPLICIT INPUTS: ; 4039 1 ! ; 4040 1 ! None. ; 4041 1 ! ; 4042 1 ! OUTPUT PARAMETERS: ; 4043 1 ! ; 4044 1 ! None. ; 4045 1 ! ; 4046 1 ! IMPLICIT OUTPUTS: ; 4047 1 ! ; 4048 1 ! None. ; 4049 1 ! ; 4050 1 ! COMPLETION CODES: ; 4051 1 ! ; 4052 1 ! None. ; 4053 1 ! ; 4054 1 ! SIDE EFFECTS: ; 4055 1 ! ; 4056 1 ! None. ; 4057 1 ! ; 4058 1 !-- ; 4059 1 ; 4060 2 BEGIN ; 4061 2 TPARSE_ARGS; ; 4062 2 ABT_FLAG = .AP [TPA$L_PARAM]; ; 4063 2 RETURN SS$_NORMAL; ; 4064 1 END; ! End of STORE_ABT ;STORE_ABT U.26: .WORD ^M<> ;Save nothing 4023 0000 00000 MOVL 32(AP), G^ABT_FLAG ;32(AP), ABT_FLAG 4062 00000000G 00 20 AC D0 00002 MOVL #1, R0 ;#1, R0 4063 50 01 D0 0000A RET ; 04 0000D ; Routine Size: 14 bytes, Routine Base: $CODE$ + 10C0 ; 4065 1 %SBTTL 'TPARSE support -- STORE_CHK' ; 4066 1 ROUTINE STORE_CHK = ; 4067 1 ; 4068 1 !++ ; 4069 1 ! FUNCTIONAL DESCRIPTION: ; 4070 1 ! ; 4071 1 ! This routine will store the block check type into XXXX ; 4072 1 ! location. ; 4073 1 ! ; 4074 1 ! CALLING SEQUENCE: ; 4075 1 ! ; 4076 1 ! Standard LIB$TPARSE routine call. ; 4077 1 ! ; 4078 1 ! INPUT PARAMETERS: ; 4079 1 ! ; 4080 1 ! None. ; 4081 1 ! ; 4082 1 ! IMPLICIT INPUTS: ; 4083 1 ! ; 4084 1 ! None. ; 4085 1 ! ; 4086 1 ! OUTPUT PARAMETERS: ; 4087 1 ! ; 4088 1 ! None. ; 4089 1 ! ; 4090 1 ! IMPLICIT OUTPUTS: ; 4091 1 ! ; 4092 1 ! None. ; 4093 1 ! ; 4094 1 ! COMPLETION CODES: ; 4095 1 ! ; 4096 1 ! None. ; 4097 1 ! ; 4098 1 ! SIDE EFFECTS: ; 4099 1 ! ; 4100 1 ! None. ; 4101 1 ! ; 4102 1 !-- ; 4103 1 ; 4104 2 BEGIN ; 4105 2 TPARSE_ARGS; ; 4106 2 CHKTYPE = .AP [TPA$L_PARAM]; ; 4107 2 RETURN SS$_NORMAL; ; 4108 1 END; ! End of STORE_CHK ;STORE_CHK U.25: .WORD ^M<> ;Save nothing 4066 0000 00000 MOVL 32(AP), G^CHKTYPE ;32(AP), CHKTYPE 4106 00000000G 00 20 AC D0 00002 MOVL #1, R0 ;#1, R0 4107 50 01 D0 0000A RET ; 04 0000D ; Routine Size: 14 bytes, Routine Base: $CODE$ + 10CE ; 4109 1 %SBTTL 'TPARSE support -- STORE_FTP - Store file type' ; 4110 1 ROUTINE STORE_FTP = ; 4111 1 ; 4112 1 !++ ; 4113 1 ! FUNCTIONAL DESCRIPTION: ; 4114 1 ! ; 4115 1 ! This routine will store the file type that was specified by the ; 4116 1 ! user for the KERFIL processing. ; 4117 1 ! ; 4118 1 ! CALLING SEQUENCE: ; 4119 1 ! ; 4120 1 ! Standard call from LIB$TPARSE. ; 4121 1 ! ; 4122 1 ! INPUT PARAMETERS: ; 4123 1 ! ; 4124 1 ! None. ; 4125 1 ! ; 4126 1 ! IMPLICIT INPUTS: ; 4127 1 ! ; 4128 1 ! None. ; 4129 1 ! ; 4130 1 ! OUTPUT PARAMETERS: ; 4131 1 ! ; 4132 1 ! None. ; 4133 1 ! ; 4134 1 ! IMPLICIT OUTPUTS: ; 4135 1 ! ; 4136 1 ! None. ; 4137 1 ! ; 4138 1 ! COMPLETION CODES: ; 4139 1 ! ; 4140 1 ! None. ; 4141 1 ! ; 4142 1 ! SIDE EFFECTS: ; 4143 1 ! ; 4144 1 ! None. ; 4145 1 ! ; 4146 1 !-- ; 4147 1 ; 4148 2 BEGIN ; 4149 2 TPARSE_ARGS; ; 4150 2 FILE_TYPE = .AP [TPA$L_PARAM]; ; 4151 2 ; 4152 2 IF (.FILE_TYPE EQL FILE_FIX) OR ; 4153 3 (.FILE_TYPE EQL FILE_BIN) ; 4154 2 THEN ; 4155 3 BEGIN ; 4156 3 TT_TEXT(UPLIT('Current block size for file transfer is ', 0)); ; 4157 3 TT_NUMBER(.file_blocksize); ; 4158 3 TT_CRLF(); ; 4159 2 END; ; 4160 2 ; 4161 2 RETURN SS$_NORMAL; ; 4162 1 END; ! End of STORE_FTP .PSECT $PLIT$,NOWRT,NOEXE,2 P.AGO: .ASCII \Current block size for file transfer is \ ; 20 74 6E 65 72 72 75 43 009C0 ; 69 73 20 6B 63 6F 6C 62 009C8 ; 66 20 72 6F 66 20 65 7A 009D0 ; 6E 61 72 74 20 65 6C 69 009D8 ; 20 73 69 20 72 65 66 73 009E0 .LONG 0 ; 00000000 009E8 .PSECT $CODE$,NOWRT,2 ;STORE_FTP U.21: .WORD ^M<R2> ;Save R2 4110 0004 00000 MOVAB G^FILE_TYPE, R2 ;FILE_TYPE, R2 52 00000000G 00 9E 00002 MOVL 32(AP), (R2) ;32(AP), FILE_TYPE 4150 62 20 AC D0 00009 MOVL (R2), R0 ;FILE_TYPE, R0 4152 50 62 D0 0000D CMPL R0, #4 ;R0, #4 04 50 D1 00010 BEQL 1$ ;1$ 05 13 00013 CMPL R0, #2 ;R0, #2 4153 02 50 D1 00015 BNEQ 2$ ;2$ 21 12 00018 1$: PUSHAB G^P.AGO ;P.AGO 4156 00000000' 00 9F 0001A CALLS #1, G^TT_TEXT ;#1, TT_TEXT 00000000G 00 01 FB 00020 PUSHL G^FILE_BLOCKSIZE ;FILE_BLOCKSIZE 4157 00000000G 00 DD 00027 CALLS #1, G^TT_NUMBER ;#1, TT_NUMBER 00000000G 00 01 FB 0002D CALLS #0, G^TT_CRLF ;#0, TT_CRLF 4158 00000000G 00 00 FB 00034 2$: MOVL #1, R0 ;#1, R0 4161 50 01 D0 0003B RET ; 04 0003E ; Routine Size: 63 bytes, Routine Base: $CODE$ + 10DC ; 4163 1 %SBTTL 'TPARSE support -- STORE_FNM - Store file type' ; 4164 1 ROUTINE STORE_FNM = ; 4165 1 ; 4166 1 !++ ; 4167 1 ! FUNCTIONAL DESCRIPTION: ; 4168 1 ! ; 4169 1 ! This routine will store the file type that was specified by the ; 4170 1 ! user for the KERFIL processing. ; 4171 1 ! ; 4172 1 ! CALLING SEQUENCE: ; 4173 1 ! ; 4174 1 ! Standard call from LIB$TPARSE. ; 4175 1 ! ; 4176 1 ! INPUT PARAMETERS: ; 4177 1 ! ; 4178 1 ! None. ; 4179 1 ! ; 4180 1 ! IMPLICIT INPUTS: ; 4181 1 ! ; 4182 1 ! None. ; 4183 1 ! ; 4184 1 ! OUTPUT PARAMETERS: ; 4185 1 ! ; 4186 1 ! None. ; 4187 1 ! ; 4188 1 ! IMPLICIT OUTPUTS: ; 4189 1 ! ; 4190 1 ! None. ; 4191 1 ! ; 4192 1 ! COMPLETION CODES: ; 4193 1 ! ; 4194 1 ! None. ; 4195 1 ! ; 4196 1 ! SIDE EFFECTS: ; 4197 1 ! ; 4198 1 ! None. ; 4199 1 ! ; 4200 1 !-- ; 4201 1 ; 4202 2 BEGIN ; 4203 2 TPARSE_ARGS; ; 4204 2 FIL_NORMAL_FORM = .AP [TPA$L_PARAM]; ; 4205 2 RETURN SS$_NORMAL; ; 4206 1 END; ! End of STORE_FNM ;STORE_FNM U.22: .WORD ^M<> ;Save nothing 4164 0000 00000 MOVL 32(AP), G^FIL_NORMAL_FORM ;32(AP), FIL_NORMAL_FORM 4204 00000000G 00 20 AC D0 00002 MOVL #1, R0 ;#1, R0 4205 50 01 D0 0000A RET ; 04 0000D ; Routine Size: 14 bytes, Routine Base: $CODE$ + 111B ; 4207 1 %SBTTL 'TPARSE support -- STORE_PARITY - Store file type' ; 4208 1 ROUTINE STORE_PARITY = ; 4209 1 ; 4210 1 !++ ; 4211 1 ! FUNCTIONAL DESCRIPTION: ; 4212 1 ! ; 4213 1 ! This routine will store the type of parity to use for the transfer. ; 4214 1 ! If a parity type of other than NONE is specified then we will use ; 4215 1 ! eight-bit quoting to support the transfer. ; 4216 1 ! ; 4217 1 ! CALLING SEQUENCE: ; 4218 1 ! ; 4219 1 ! Standard call from LIB$TPARSE. ; 4220 1 ! ; 4221 1 ! INPUT PARAMETERS: ; 4222 1 ! ; 4223 1 ! None. ; 4224 1 ! ; 4225 1 ! IMPLICIT INPUTS: ; 4226 1 ! ; 4227 1 ! None. ; 4228 1 ! ; 4229 1 ! OUTPUT PARAMETERS: ; 4230 1 ! ; 4231 1 ! None. ; 4232 1 ! ; 4233 1 ! IMPLICIT OUTPUTS: ; 4234 1 ! ; 4235 1 ! None. ; 4236 1 ! ; 4237 1 ! COMPLETION CODES: ; 4238 1 ! ; 4239 1 ! None. ; 4240 1 ! ; 4241 1 ! SIDE EFFECTS: ; 4242 1 ! ; 4243 1 ! None. ; 4244 1 ! ; 4245 1 !-- ; 4246 1 ; 4247 2 BEGIN ; 4248 2 TPARSE_ARGS; ; 4249 2 PARITY_TYPE = .AP [TPA$L_PARAM]; ; 4250 2 RETURN SS$_NORMAL; ; 4251 1 END; ! End of STORE_PARITY ;STORE_PARITY U.24: .WORD ^M<> ;Save nothing 4208 0000 00000 MOVL 32(AP), G^PARITY_TYPE ;32(AP), PARITY_TYPE 4249 00000000G 00 20 AC D0 00002 MOVL #1, R0 ;#1, R0 4250 50 01 D0 0000A RET ; 04 0000D ; Routine Size: 14 bytes, Routine Base: $CODE$ + 1129 ; 4252 1 %SBTTL 'TPARSE support -- STORE_ECHO - Store local echo flag' ; 4253 1 ROUTINE STORE_ECHO = ; 4254 1 ; 4255 1 !++ ; 4256 1 ! FUNCTIONAL DESCRIPTION: ; 4257 1 ! ; 4258 1 ! This routine will store the state of the local echo flag as the ; 4259 1 ! user set it. ; 4260 1 ! ; 4261 1 ! CALLING SEQUENCE: ; 4262 1 ! ; 4263 1 ! Standard TPARSE argument call. ; 4264 1 ! ; 4265 1 ! INPUT PARAMETERS: ; 4266 1 ! ; 4267 1 ! None. ; 4268 1 ! ; 4269 1 ! IMPLICIT INPUTS: ; 4270 1 ! ; 4271 1 ! None. ; 4272 1 ! ; 4273 1 ! OUTPUT PARAMETERS: ; 4274 1 ! ; 4275 1 ! None. ; 4276 1 ! ; 4277 1 ! IMPLICIT OUTPUTS: ; 4278 1 ! ; 4279 1 ! None. ; 4280 1 ! ; 4281 1 ! COMPLETION CODES: ; 4282 1 ! ; 4283 1 ! None. ; 4284 1 ! ; 4285 1 ! SIDE EFFECTS: ; 4286 1 ! ; 4287 1 ! None. ; 4288 1 ! ; 4289 1 !-- ; 4290 1 ; 4291 2 BEGIN ; 4292 2 TPARSE_ARGS; ; 4293 2 ECHO_FLAG = .AP [TPA$L_PARAM]; ; 4294 2 RETURN SS$_NORMAL; ; 4295 1 END; ! End of STORE_ECHO ;STORE_ECHO U.23: .WORD ^M<> ;Save nothing 4253 0000 00000 MOVL 32(AP), G^ECHO_FLAG ;32(AP), ECHO_FLAG 4293 00000000G 00 20 AC D0 00002 MOVL #1, R0 ;#1, R0 4294 50 01 D0 0000A RET ; 04 0000D ; Routine Size: 14 bytes, Routine Base: $CODE$ + 1137 ; 4296 1 %SBTTL 'TPARSE support -- STORE_MSG_FIL - Store file name typeout flag' ; 4297 1 ROUTINE STORE_MSG_FIL = ; 4298 1 ; 4299 1 !++ ; 4300 1 ! FUNCTIONAL DESCRIPTION: ; 4301 1 ! ; 4302 1 ! This routine will store the state of the file name typeout flag as the ; 4303 1 ! user set it. ; 4304 1 ! ; 4305 1 ! CALLING SEQUENCE: ; 4306 1 ! ; 4307 1 ! Standard TPARSE argument call. ; 4308 1 ! ; 4309 1 ! INPUT PARAMETERS: ; 4310 1 ! ; 4311 1 ! None. ; 4312 1 ! ; 4313 1 ! IMPLICIT INPUTS: ; 4314 1 ! ; 4315 1 ! None. ; 4316 1 ! ; 4317 1 ! OUTPUT PARAMETERS: ; 4318 1 ! ; 4319 1 ! None. ; 4320 1 ! ; 4321 1 ! IMPLICIT OUTPUTS: ; 4322 1 ! ; 4323 1 ! None. ; 4324 1 ! ; 4325 1 ! COMPLETION CODES: ; 4326 1 ! ; 4327 1 ! None. ; 4328 1 ! ; 4329 1 ! SIDE EFFECTS: ; 4330 1 ! ; 4331 1 ! None. ; 4332 1 ! ; 4333 1 !-- ; 4334 1 ; 4335 2 BEGIN ; 4336 2 TPARSE_ARGS; ; 4337 2 TY_FIL = .AP [TPA$L_PARAM]; ; 4338 2 RETURN SS$_NORMAL; ; 4339 1 END; ! End of STORE_MSG_FIL ;STORE_MSG_FIL U.28: .WORD ^M<> ;Save nothing 4297 0000 00000 MOVL 32(AP), G^TY_FIL ;32(AP), TY_FIL 4337 00000000G 00 20 AC D0 00002 MOVL #1, R0 ;#1, R0 4338 50 01 D0 0000A RET ; 04 0000D ; Routine Size: 14 bytes, Routine Base: $CODE$ + 1145 ; 4340 1 %SBTTL 'TPARSE support -- STORE_MSG_PKT - Store packet number typeout flag' ; 4341 1 ROUTINE STORE_MSG_PKT = ; 4342 1 ; 4343 1 !++ ; 4344 1 ! FUNCTIONAL DESCRIPTION: ; 4345 1 ! ; 4346 1 ! This routine will store the state of the packet number flag as the ; 4347 1 ! user set it. ; 4348 1 ! ; 4349 1 ! CALLING SEQUENCE: ; 4350 1 ! ; 4351 1 ! Standard TPARSE argument call. ; 4352 1 ! ; 4353 1 ! INPUT PARAMETERS: ; 4354 1 ! ; 4355 1 ! None. ; 4356 1 ! ; 4357 1 ! IMPLICIT INPUTS: ; 4358 1 ! ; 4359 1 ! None. ; 4360 1 ! ; 4361 1 ! OUTPUT PARAMETERS: ; 4362 1 ! ; 4363 1 ! None. ; 4364 1 ! ; 4365 1 ! IMPLICIT OUTPUTS: ; 4366 1 ! ; 4367 1 ! None. ; 4368 1 ! ; 4369 1 ! COMPLETION CODES: ; 4370 1 ! ; 4371 1 ! None. ; 4372 1 ! ; 4373 1 ! SIDE EFFECTS: ; 4374 1 ! ; 4375 1 ! None. ; 4376 1 ! ; 4377 1 !-- ; 4378 1 ; 4379 2 BEGIN ; 4380 2 TPARSE_ARGS; ; 4381 2 TY_PKT = .AP [TPA$L_PARAM]; ; 4382 2 RETURN SS$_NORMAL; ; 4383 1 END; ! End of STORE_MSG_PKT ;STORE_MSG_PKT U.29: .WORD ^M<> ;Save nothing 4341 0000 00000 MOVL 32(AP), G^TY_PKT ;32(AP), TY_PKT 4381 00000000G 00 20 AC D0 00002 MOVL #1, R0 ;#1, R0 4382 50 01 D0 0000A RET ; 04 0000D ; Routine Size: 14 bytes, Routine Base: $CODE$ + 1153 ; 4384 1 %SBTTL 'TPARSE support -- CHECK_EOL' ; 4385 1 ROUTINE CHECK_EOL = ; 4386 1 ; 4387 1 !++ ; 4388 1 ! FUNCTIONAL DESCRIPTION: ; 4389 1 ! ; 4390 1 ! This routine will valid the SEND and RECEIVE eol character that ; 4391 1 ! is being set by the user. ; 4392 1 ! ; 4393 1 ! CALLING SEQUENCE: ; 4394 1 ! ; 4395 1 ! Standard TPARSE routine calling sequence. ; 4396 1 ! ; 4397 1 ! INPUT PARAMETERS: ; 4398 1 ! ; 4399 1 ! None. ; 4400 1 ! ; 4401 1 ! IMPLICIT INPUTS: ; 4402 1 ! ; 4403 1 ! None. ; 4404 1 ! ; 4405 1 ! OUTPUT PARAMETERS: ; 4406 1 ! ; 4407 1 ! None. ; 4408 1 ! ; 4409 1 ! IMPLICIT OUTPUTS: ; 4410 1 ! ; 4411 1 ! None. ; 4412 1 ! ; 4413 1 ! COMPLETION CODES: ; 4414 1 ! ; 4415 1 ! None. ; 4416 1 ! ; 4417 1 ! SIDE EFFECTS: ; 4418 1 ! ; 4419 1 ! None. ; 4420 1 ! ; 4421 1 !-- ; 4422 1 ; 4423 2 BEGIN ; 4424 2 TPARSE_ARGS; ; 4425 2 ; 4426 3 IF (.AP [TPA$L_NUMBER] LSS %C' ') AND (.AP [TPA$L_NUMBER] GTR 0) ; 4427 2 THEN ; 4428 2 RETURN SS$_NORMAL ; 4429 2 ELSE ; 4430 2 RETURN KER_ILLEOL; ; 4431 2 ; 4432 1 END; ! End of CHECK_EOL ;CHECK_EOL U.33: .WORD ^M<> ;Save nothing 4385 0000 00000 CMPL 28(AP), #32 ;28(AP), #32 4426 20 1C AC D1 00002 BGEQ 1$ ;1$ 09 18 00006 TSTL 28(AP) ;28(AP) 1C AC D5 00008 BLEQ 1$ ;1$ 04 15 0000B MOVL #1, R0 ;#1, R0 4428 50 01 D0 0000D RET ; 04 00010 1$: MOVL #134316066, R0 ;#134316066, R0 4430 50 08018022 8F D0 00011 RET ; 04 00018 ; Routine Size: 25 bytes, Routine Base: $CODE$ + 1161 ; 4433 1 %SBTTL 'TPARSE support -- CHECK_QUOTE' ; 4434 1 ROUTINE CHECK_QUOTE = ; 4435 1 ; 4436 1 !++ ; 4437 1 ! FUNCTIONAL DESCRIPTION: ; 4438 1 ! ; 4439 1 ! This routine will validate the SEND and RECEIVE quoting character that ; 4440 1 ! is being set by the user. ; 4441 1 ! ; 4442 1 ! CALLING SEQUENCE: ; 4443 1 ! ; 4444 1 ! Standard TPARSE routine calling sequence. ; 4445 1 ! ; 4446 1 ! INPUT PARAMETERS: ; 4447 1 ! ; 4448 1 ! None. ; 4449 1 ! ; 4450 1 ! IMPLICIT INPUTS: ; 4451 1 ! ; 4452 1 ! None. ; 4453 1 ! ; 4454 1 ! OUTPUT PARAMETERS: ; 4455 1 ! ; 4456 1 ! None. ; 4457 1 ! ; 4458 1 ! IMPLICIT OUTPUTS: ; 4459 1 ! ; 4460 1 ! None. ; 4461 1 ! ; 4462 1 ! COMPLETION CODES: ; 4463 1 ! ; 4464 1 ! Error code or true value ; 4465 1 ! ; 4466 1 ! SIDE EFFECTS: ; 4467 1 ! ; 4468 1 ! None. ; 4469 1 ! ; 4470 1 !-- ; 4471 1 ; 4472 2 BEGIN ; 4473 2 TPARSE_ARGS; ; 4474 2 ; 4475 3 IF (.AP [TPA$L_NUMBER] GEQ %C' ' AND .AP [TPA$L_NUMBER] LSS %C'?') OR (.AP [TPA$L_NUMBER] GEQ %C'`' AND ; 4476 3 .AP [TPA$L_NUMBER] LSS CHR_DEL) ; 4477 2 THEN ; 4478 2 RETURN SS$_NORMAL ; 4479 2 ELSE ; 4480 2 RETURN KER_ILLQUO; ; 4481 2 ; 4482 1 END; ! End of CHECK_QUO ;CHECK_QUOTE U.34: .WORD ^M<> ;Save nothing 4434 0000 00000 CMPL 28(AP), #32 ;28(AP), #32 4475 20 1C AC D1 00002 BLSS 1$ ;1$ 06 19 00006 CMPL 28(AP), #63 ;28(AP), #63 3F 1C AC D1 00008 BLSS 2$ ;2$ 14 19 0000C 1$: CMPL 28(AP), #96 ;28(AP), #96 00000060 8F 1C AC D1 0000E BLSS 3$ ;3$ 0E 19 00016 CMPL 28(AP), #127 ;28(AP), #127 4476 0000007F 8F 1C AC D1 00018 BGEQ 3$ ;3$ 04 18 00020 2$: MOVL #1, R0 ;#1, R0 4478 50 01 D0 00022 RET ; 04 00025 3$: MOVL #134316114, R0 ;#134316114, R0 4480 50 08018052 8F D0 00026 RET ; 04 0002D ; Routine Size: 46 bytes, Routine Base: $CODE$ + 117A ; 4483 1 %SBTTL 'TPARSE support -- CHECK_SOH' ; 4484 1 ROUTINE CHECK_SOH = ; 4485 1 ; 4486 1 !++ ; 4487 1 ! FUNCTIONAL DESCRIPTION: ; 4488 1 ! ; 4489 1 ! This routine will valid the SEND and RECEIVE START_OF_PACKET ; 4490 1 ! character that is being set by the user. ; 4491 1 ! ; 4492 1 ! CALLING SEQUENCE: ; 4493 1 ! ; 4494 1 ! Standard TPARSE routine calling sequence. ; 4495 1 ! ; 4496 1 ! INPUT PARAMETERS: ; 4497 1 ! ; 4498 1 ! None. ; 4499 1 ! ; 4500 1 ! IMPLICIT INPUTS: ; 4501 1 ! ; 4502 1 ! None. ; 4503 1 ! ; 4504 1 ! OUTPUT PARAMETERS: ; 4505 1 ! ; 4506 1 ! None. ; 4507 1 ! ; 4508 1 ! IMPLICIT OUTPUTS: ; 4509 1 ! ; 4510 1 ! None. ; 4511 1 ! ; 4512 1 ! COMPLETION CODES: ; 4513 1 ! ; 4514 1 ! None. ; 4515 1 ! ; 4516 1 ! SIDE EFFECTS: ; 4517 1 ! ; 4518 1 ! None. ; 4519 1 ! ; 4520 1 !-- ; 4521 1 ; 4522 2 BEGIN ; 4523 2 TPARSE_ARGS; ; 4524 2 ; 4525 3 IF (.AP [TPA$L_NUMBER] LSS %C' ') AND (.AP [TPA$L_NUMBER] GTR 0) ; 4526 2 THEN ; 4527 2 RETURN SS$_NORMAL ; 4528 2 ELSE ; 4529 2 RETURN KER_ILLSOH; ; 4530 2 ; 4531 1 END; ! End of CHECK_SOH ;CHECK_SOH U.35: .WORD ^M<> ;Save nothing 4484 0000 00000 CMPL 28(AP), #32 ;28(AP), #32 4525 20 1C AC D1 00002 BGEQ 1$ ;1$ 09 18 00006 TSTL 28(AP) ;28(AP) 1C AC D5 00008 BLEQ 1$ ;1$ 04 15 0000B MOVL #1, R0 ;#1, R0 4527 50 01 D0 0000D RET ; 04 00010 1$: MOVL #134316106, R0 ;#134316106, R0 4529 50 0801804A 8F D0 00011 RET ; 04 00018 ; Routine Size: 25 bytes, Routine Base: $CODE$ + 11A8 ; 4532 1 %SBTTL 'TPARSE support -- CHECK_PAD_CHAR' ; 4533 1 ROUTINE CHECK_PAD_CHAR = ; 4534 1 ; 4535 1 !++ ; 4536 1 ! FUNCTIONAL DESCRIPTION: ; 4537 1 ! ; 4538 1 ! This routine will valid the SEND and RECEIVE eol character that ; 4539 1 ! is being set by the user. ; 4540 1 ! ; 4541 1 ! CALLING SEQUENCE: ; 4542 1 ! ; 4543 1 ! Standard TPARSE routine calling sequence. ; 4544 1 ! ; 4545 1 ! INPUT PARAMETERS: ; 4546 1 ! ; 4547 1 ! None. ; 4548 1 ! ; 4549 1 ! IMPLICIT INPUTS: ; 4550 1 ! ; 4551 1 ! None. ; 4552 1 ! ; 4553 1 ! OUTPUT PARAMETERS: ; 4554 1 ! ; 4555 1 ! None. ; 4556 1 ! ; 4557 1 ! IMPLICIT OUTPUTS: ; 4558 1 ! ; 4559 1 ! None. ; 4560 1 ! ; 4561 1 ! COMPLETION CODES: ; 4562 1 ! ; 4563 1 ! None. ; 4564 1 ! ; 4565 1 ! SIDE EFFECTS: ; 4566 1 ! ; 4567 1 ! None. ; 4568 1 ! ; 4569 1 !-- ; 4570 1 ; 4571 2 BEGIN ; 4572 2 TPARSE_ARGS; ; 4573 2 ; 4574 2 IF .AP [TPA$L_NUMBER] LSS %C' ' OR .AP [TPA$L_NUMBER] EQL CHR_DEL ; 4575 2 THEN ; 4576 2 RETURN SS$_NORMAL ; 4577 2 ELSE ; 4578 2 RETURN KER_ILLPADCHR; ; 4579 2 ; 4580 1 END; ! End of CHECK_PAD_CHAR ;CHECK_PAD_CHAR U.32: .WORD ^M<> ;Save nothing 4533 0000 00000 CMPL 28(AP), #32 ;28(AP), #32 4574 20 1C AC D1 00002 BLSS 1$ ;1$ 0A 19 00006 CMPL 28(AP), #127 ;28(AP), #127 0000007F 8F 1C AC D1 00008 BNEQ 2$ ;2$ 04 12 00010 1$: MOVL #1, R0 ;#1, R0 4576 50 01 D0 00012 RET ; 04 00015 2$: MOVL #134316082, R0 ;#134316082, R0 4578 50 08018032 8F D0 00016 RET ; 04 0001D ; Routine Size: 30 bytes, Routine Base: $CODE$ + 11C1 ; 4581 1 %SBTTL 'TPARSE support -- CHECK_NPAD' ; 4582 1 ROUTINE CHECK_NPAD = ; 4583 1 ; 4584 1 !++ ; 4585 1 ! FUNCTIONAL DESCRIPTION: ; 4586 1 ! ; 4587 1 ! This routine will determine if the padding character specified by the ; 4588 1 ! user is valid. ; 4589 1 ! ; 4590 1 ! CALLING SEQUENCE: ; 4591 1 ! ; 4592 1 ! Standard TPARSE calling sequence. ; 4593 1 ! ; 4594 1 ! INPUT PARAMETERS: ; 4595 1 ! ; 4596 1 ! None. ; 4597 1 ! ; 4598 1 ! IMPLICIT INPUTS: ; 4599 1 ! ; 4600 1 ! None. ; 4601 1 ! ; 4602 1 ! OUTPUT PARAMETERS: ; 4603 1 ! ; 4604 1 ! None. ; 4605 1 ! ; 4606 1 ! IMPLICIT OUTPUTS: ; 4607 1 ! ; 4608 1 ! None. ; 4609 1 ! ; 4610 1 ! COMPLETION CODES: ; 4611 1 ! ; 4612 1 ! None. ; 4613 1 ! ; 4614 1 ! SIDE EFFECTS: ; 4615 1 ! ; 4616 1 ! None. ; 4617 1 ! ; 4618 1 !-- ; 4619 1 ; 4620 2 BEGIN ; 4621 2 TPARSE_ARGS; ; 4622 2 ; 4623 2 IF .AP [TPA$L_NUMBER] LSS 0 THEN RETURN KER_ILLNPAD ELSE RETURN SS$_NORMAL; ; 4624 2 ; 4625 1 END; ! End of CHECK_NPAD ;CHECK_NPAD U.31: .WORD ^M<> ;Save nothing 4582 0000 00000 TSTL 28(AP) ;28(AP) 4623 1C AC D5 00002 BGEQ 1$ ;1$ 08 18 00005 MOVL #134316090, R0 ;#134316090, R0 50 0801803A 8F D0 00007 RET ; 04 0000E 1$: MOVL #1, R0 ;#1, R0 50 01 D0 0000F RET ; 04 00012 ; Routine Size: 19 bytes, Routine Base: $CODE$ + 11DF ; 4626 1 %SBTTL 'TPARSE support -- CHECK_PACKET_LEN' ; 4627 1 ROUTINE CHECK_PACKET_LEN = ; 4628 1 ; 4629 1 !++ ; 4630 1 ! FUNCTIONAL DESCRIPTION: ; 4631 1 ! ; 4632 1 ! This routine will determine if the packet length specified by the ; 4633 1 ! user is valid. ; 4634 1 ! ; 4635 1 ! CALLING SEQUENCE: ; 4636 1 ! ; 4637 1 ! Standard TPARSE calling sequence. ; 4638 1 ! ; 4639 1 ! INPUT PARAMETERS: ; 4640 1 ! ; 4641 1 ! None. ; 4642 1 ! ; 4643 1 ! IMPLICIT INPUTS: ; 4644 1 ! ; 4645 1 ! None. ; 4646 1 ! ; 4647 1 ! OUTPUT PARAMETERS: ; 4648 1 ! ; 4649 1 ! None. ; 4650 1 ! ; 4651 1 ! IMPLICIT OUTPUTS: ; 4652 1 ! ; 4653 1 ! None. ; 4654 1 ! ; 4655 1 ! COMPLETION CODES: ; 4656 1 ! ; 4657 1 ! None. ; 4658 1 ! ; 4659 1 ! SIDE EFFECTS: ; 4660 1 ! ; 4661 1 ! None. ; 4662 1 ! ; 4663 1 !-- ; 4664 1 ; 4665 2 BEGIN ; 4666 2 TPARSE_ARGS; ; 4667 2 ; 4668 3 IF .AP [TPA$L_NUMBER] LSS 10 OR .AP [TPA$L_NUMBER] GTR (MAX_MSG - 2) ; 4669 2 THEN ; 4670 2 RETURN KER_ILLPKTLEN ; 4671 2 ELSE ; 4672 2 RETURN SS$_NORMAL; ; 4673 2 ; 4674 1 END; ! End of CHECK_PACKET_LEN ;CHECK_PACKET_LEN U.30: .WORD ^M<> ;Save nothing 4627 0000 00000 CMPL 28(AP), #10 ;28(AP), #10 4668 0A 1C AC D1 00002 BLSS 1$ ;1$ 0A 19 00006 CMPL 28(AP), #1000 ;28(AP), #1000 000003E8 8F 1C AC D1 00008 BLEQ 2$ ;2$ 08 15 00010 1$: MOVL #134316074, R0 ;#134316074, R0 4670 50 0801802A 8F D0 00012 RET ; 04 00019 2$: MOVL #1, R0 ;#1, R0 4672 50 01 D0 0001A RET ; 04 0001D ; Routine Size: 30 bytes, Routine Base: $CODE$ + 11F2 ; 4675 1 %SBTTL 'STORE_TEXT' ; 4676 1 ROUTINE STORE_TEXT = ; 4677 1 ; 4678 1 !++ ; 4679 1 ! FUNCTIONAL DESCRIPTION: ; 4680 1 ! ; 4681 1 ! This routine will store a single character of the file specification ; 4682 1 ! that the user gives to the SEND and RECEIVE commands. ; 4683 1 ! ; 4684 1 ! FORMAL PARAMETERS: ; 4685 1 ! ; 4686 1 ! Character that was parsed. ; 4687 1 ! ; 4688 1 ! IMPLICIT INPUTS: ; 4689 1 ! ; 4690 1 ! None. ; 4691 1 ! ; 4692 1 ! IMPLICIT OUTPUTS: ; 4693 1 ! ; 4694 1 ! Character stored into the file specification vector. ; 4695 1 ! ; 4696 1 ! ROUTINE VALUE and ; 4697 1 ! COMPLETION CODES: ; 4698 1 ! ; 4699 1 ! None. ; 4700 1 ! ; 4701 1 ! SIDE EFFECTS: ; 4702 1 ! ; 4703 1 ! None. ; 4704 1 ! ; 4705 1 !-- ; 4706 1 ; 4707 2 BEGIN ; 4708 2 TPARSE_ARGS; ; 4709 2 ; 4710 2 IF (TEMP_DESC [DSC$W_LENGTH] = .TEMP_DESC [DSC$W_LENGTH] + 1) LSS TEMP_LENGTH ; 4711 2 THEN ; 4712 3 BEGIN ; 4713 3 CH$WCHAR (.AP [TPA$B_CHAR], CH$PTR (TEMP_NAME, .TEMP_DESC [DSC$W_LENGTH] - 1)); ; 4714 3 AP [TPA$V_BLANKS] = 1; ! Blanks are significant ; 4715 3 RETURN SS$_NORMAL; ; 4716 3 END ; 4717 2 ELSE ; 4718 2 RETURN KER_LINTOOLNG; ; 4719 2 ; 4720 1 END; ! End of STORE_TEXT ;STORE_TEXT U.12: .WORD ^M<R2> ;Save R2 4676 0004 00000 MOVAB G^U.63, R2 ;U.63, R2 52 00000000' 00 9E 00002 MOVZWL (R2), R0 ;TEMP_DESC, R0 4710 50 62 3C 00009 INCL R0 ;R0 50 D6 0000C MOVW R0, (R2) ;R0, TEMP_DESC 62 50 B0 0000E CMPL R0, #132 ;R0, #132 00000084 8F 50 D1 00011 BGEQ 1$ ;1$ 11 18 00018 MOVZWL (R2), R0 ;TEMP_DESC, R0 4713 50 62 3C 0001A MOVB 24(AP), 7(R2)[R0] ;24(AP), TEMP_NAME-1[R0] 07 A240 18 AC 90 0001D BISB2 #1, 4(AP) ;#1, 4(AP) 4714 04 AC 01 88 00023 MOVL #1, R0 ;#1, R0 4715 50 01 D0 00027 RET ; 04 0002A 1$: MOVL #134316098, R0 ;#134316098, R0 4718 50 08018042 8F D0 0002B RET ; 04 00032 ; Routine Size: 51 bytes, Routine Base: $CODE$ + 1210 ; 4721 1 %SBTTL 'TPARSE support -- COPY_DESC - Copy string to a descriptor' ; 4722 1 ROUTINE COPY_DESC = ; 4723 1 ; 4724 1 !++ ; 4725 1 ! FUNCTIONAL DESCRIPTION: ; 4726 1 ! ; 4727 1 ! This routine will copy a string to the descriptor passed in the TPARSE ; 4728 1 ! argument. ; 4729 1 ! ; 4730 1 ! CALLING SEQUENCE: ; 4731 1 ! ; 4732 1 ! COPY_FILE(); ; 4733 1 ! ; 4734 1 ! INPUT PARAMETERS: ; 4735 1 ! ; 4736 1 ! None. ; 4737 1 ! ; 4738 1 ! IMPLICIT INPUTS: ; 4739 1 ! ; 4740 1 ! TEMP_DESC and TEMP_NAME set up with the device name and length ; 4741 1 ! in the descriptor. ; 4742 1 ! ; 4743 1 ! OUTPUT PARAMETERS: ; 4744 1 ! ; 4745 1 ! None. ; 4746 1 ! ; 4747 1 ! IMPLICIT OUTPUTS: ; 4748 1 ! ; 4749 1 ! Descriptor fields set up. ; 4750 1 ! TEMP_DESC. ; 4751 1 ! ; 4752 1 ! COMPLETION CODES: ; 4753 1 ! ; 4754 1 ! 0 - Failure. ; 4755 1 ! 1 - Success. ; 4756 1 ! ; 4757 1 ! SIDE EFFECTS: ; 4758 1 ! ; 4759 1 ! None. ; 4760 1 ! ; 4761 1 !-- ; 4762 1 ; 4763 2 BEGIN ; 4764 2 TPARSE_ARGS; ; 4765 2 ; 4766 2 LOCAL ; 4767 2 DESC_ADDR; ; 4768 2 ; 4769 2 DESC_ADDR = .AP [TPA$L_PARAM]; ; 4770 3 BEGIN ; 4771 3 ; 4772 3 MAP ; 4773 3 DESC_ADDR : REF BLOCK [8, BYTE]; ; 4774 3 ; 4775 3 DESC_ADDR [DSC$W_LENGTH] = .TEMP_DESC [DSC$W_LENGTH]; ; 4776 3 CH$COPY (.TEMP_DESC [DSC$W_LENGTH], CH$PTR (TEMP_NAME), 0, .TEMP_DESC [DSC$W_LENGTH] + 1, ; 4777 3 CH$PTR (.DESC_ADDR [DSC$A_POINTER])); ; 4778 2 END; ; 4779 2 RETURN SS$_NORMAL; ; 4780 1 END; ! End of COPY_FILE ;COPY_DESC U.14: .WORD ^M<R2,R3,R4,R5> ;Save R2,R3,R4,R5 4722 003C 00000 MOVL 32(AP), R0 ;32(AP), DESC_ADDR 4769 50 20 AC D0 00002 MOVZWL G^U.63, R2 ;U.63, R2 4775 52 00000000' 00 3C 00006 MOVW R2, (R0) ;R2, (DESC_ADDR) 60 52 B0 0000D MOVAB 1(R2), R1 ;1(R2), R1 4776 51 01 A2 9E 00010 MOVC5 R2, G^U.64, #0, R1, @4(R0) ;R2, U.64, #0, R1, @4(DESC_ADDR) 4777 00000000' 00 52 2C 00014 ; 51 00 0001B ; 04 B0 0001D MOVL #1, R0 ;#1, R0 4779 50 01 D0 0001F RET ; 04 00022 ; Routine Size: 35 bytes, Routine Base: $CODE$ + 1243 ; 4781 1 %SBTTL 'TPARSE support -- COPY_ALT_FILE - Copy file specification' ; 4782 1 ROUTINE COPY_ALT_FILE = ; 4783 1 ; 4784 1 !++ ; 4785 1 ! FUNCTIONAL DESCRIPTION: ; 4786 1 ! ; 4787 1 ! This routine will copy the file name from the temporary ; 4788 1 ! descriptor to the descriptor that is used for the file name. ; 4789 1 ! (ALT_FILE_NAME). ; 4790 1 ! This is for use by the RECEIVE command so that the user may ; 4791 1 ! specify an alternate file name for the received file. ; 4792 1 ! ; 4793 1 ! CALLING SEQUENCE: ; 4794 1 ! ; 4795 1 ! COPY_ALT_FILE(); ; 4796 1 ! ; 4797 1 ! INPUT PARAMETERS: ; 4798 1 ! ; 4799 1 ! None. ; 4800 1 ! ; 4801 1 ! IMPLICIT INPUTS: ; 4802 1 ! ; 4803 1 ! TEMP_DESC and TEMP_NAME set up with the device name and length ; 4804 1 ! in the descriptor. ; 4805 1 ! ; 4806 1 ! OUTPUT PARAMETERS: ; 4807 1 ! ; 4808 1 ! None. ; 4809 1 ! ; 4810 1 ! IMPLICIT OUTPUTS: ; 4811 1 ! ; 4812 1 ! ALT_FILE_NAME set up with what was in TEMP_NAME and ; 4813 1 ! TEMP_DESC. ; 4814 1 ! ; 4815 1 ! COMPLETION CODES: ; 4816 1 ! ; 4817 1 ! 0 - Failure. ; 4818 1 ! 1 - Success. ; 4819 1 ! ; 4820 1 ! SIDE EFFECTS: ; 4821 1 ! ; 4822 1 ! None. ; 4823 1 ! ; 4824 1 !-- ; 4825 1 ; 4826 2 BEGIN ; 4827 2 ALT_FILE_SIZE = .TEMP_DESC [DSC$W_LENGTH]; ; 4828 2 CH$COPY (.TEMP_DESC [DSC$W_LENGTH], CH$PTR (TEMP_NAME), 0, .TEMP_DESC [DSC$W_LENGTH] + 1, ; 4829 2 CH$PTR (ALT_FILE_NAME)); ; 4830 2 RETURN SS$_NORMAL; ; 4831 1 END; ! End of COPY_ALT_FILE ;COPY_ALT_FILE U.15: .WORD ^M<R2,R3,R4,R5> ;Save R2,R3,R4,R5 4782 003C 00000 MOVZWL G^U.63, R1 ;U.63, R1 4827 51 00000000' 00 3C 00002 MOVL R1, G^ALT_FILE_SIZE ;R1, ALT_FILE_SIZE 00000000' 00 51 D0 00009 MOVAB 1(R1), R0 ;1(R1), R0 4828 50 01 A1 9E 00010 MOVC5 R1, G^U.64, #0, R0, - ;R1, U.64, #0, R0, ALT_FILE_NAME 4829 00000000' 00 51 2C 00014 G^ALT_FILE_NAME ; 50 00 0001B ; 00000000' 00 0001D MOVL #1, R0 ;#1, R0 4830 50 01 D0 00022 RET ; 04 00025 ; Routine Size: 38 bytes, Routine Base: $CODE$ + 1266 ; 4832 1 %SBTTL 'TPARSE support -- COPY_GEN_1DATA - Copy generic command argument' ; 4833 1 ROUTINE COPY_GEN_1DATA = ; 4834 1 ; 4835 1 !++ ; 4836 1 ! FUNCTIONAL DESCRIPTION: ; 4837 1 ! ; 4838 1 ! This routine will copy the generic command argument from the ; 4839 1 ! temporary descriptor to the global storage for the argument ; 4840 1 ! (GEN_1DATA). ; 4841 1 ! ; 4842 1 ! CALLING SEQUENCE: ; 4843 1 ! ; 4844 1 ! COPY_GEN_1DATA(); ; 4845 1 ! ; 4846 1 ! INPUT PARAMETERS: ; 4847 1 ! ; 4848 1 ! None. ; 4849 1 ! ; 4850 1 ! IMPLICIT INPUTS: ; 4851 1 ! ; 4852 1 ! TEMP_DESC and TEMP_NAME set up with the device name and length ; 4853 1 ! in the descriptor. ; 4854 1 ! ; 4855 1 ! OUTPUT PARAMETERS: ; 4856 1 ! ; 4857 1 ! None. ; 4858 1 ! ; 4859 1 ! IMPLICIT OUTPUTS: ; 4860 1 ! ; 4861 1 ! GEN_1DATA and GEN_1SIZE set up with what was in TEMP_NAME and ; 4862 1 ! TEMP_DESC. ; 4863 1 ! ; 4864 1 ! COMPLETION CODES: ; 4865 1 ! ; 4866 1 ! 0 - Failure. ; 4867 1 ! 1 - Success. ; 4868 1 ! ; 4869 1 ! SIDE EFFECTS: ; 4870 1 ! ; 4871 1 ! None. ; 4872 1 ! ; 4873 1 !-- ; 4874 1 ; 4875 2 BEGIN ; 4876 2 GEN_1SIZE = .TEMP_DESC [DSC$W_LENGTH]; ; 4877 2 CH$COPY (.TEMP_DESC [DSC$W_LENGTH], CH$PTR (TEMP_NAME), 0, .TEMP_DESC [DSC$W_LENGTH] + 1, ; 4878 2 CH$PTR (GEN_1DATA)); ; 4879 2 RETURN SS$_NORMAL; ; 4880 1 END; ! End of COPY_GEN_1DATA ;COPY_GEN_1DATA U.16: .WORD ^M<R2,R3,R4,R5> ;Save R2,R3,R4,R5 4833 003C 00000 MOVZWL G^U.63, R1 ;U.63, R1 4876 51 00000000' 00 3C 00002 MOVL R1, G^GEN_1SIZE ;R1, GEN_1SIZE 00000000G 00 51 D0 00009 MOVAB 1(R1), R0 ;1(R1), R0 4877 50 01 A1 9E 00010 MOVC5 R1, G^U.64, #0, R0, G^GEN_1DATA ;R1, U.64, #0, R0, GEN_1DATA 4878 00000000' 00 51 2C 00014 ; 50 00 0001B ; 00000000G 00 0001D MOVL #1, R0 ;#1, R0 4879 50 01 D0 00022 RET ; 04 00025 ; Routine Size: 38 bytes, Routine Base: $CODE$ + 128C ; 4881 1 %SBTTL 'TPARSE support -- COPY_GEN_2DATA - Copy generic command argument' ; 4882 1 ROUTINE COPY_GEN_2DATA = ; 4883 1 ; 4884 1 !++ ; 4885 1 ! FUNCTIONAL DESCRIPTION: ; 4886 1 ! ; 4887 1 ! This routine will copy the generic command argument from the ; 4888 1 ! temporary descriptor to the global storage for the argument ; 4889 1 ! (GEN_2DATA). ; 4890 1 ! ; 4891 1 ! CALLING SEQUENCE: ; 4892 1 ! ; 4893 1 ! COPY_GEN_2DATA(); ; 4894 1 ! ; 4895 1 ! INPUT PARAMETERS: ; 4896 1 ! ; 4897 1 ! None. ; 4898 1 ! ; 4899 1 ! IMPLICIT INPUTS: ; 4900 1 ! ; 4901 1 ! TEMP_DESC and TEMP_NAME set up with the device name and length ; 4902 1 ! in the descriptor. ; 4903 1 ! ; 4904 1 ! OUTPUT PARAMETERS: ; 4905 1 ! ; 4906 1 ! None. ; 4907 1 ! ; 4908 1 ! IMPLICIT OUTPUTS: ; 4909 1 ! ; 4910 1 ! GEN_2DATA and GEN_2SIZE set up with what was in TEMP_NAME and ; 4911 1 ! TEMP_DESC. ; 4912 1 ! ; 4913 1 ! COMPLETION CODES: ; 4914 1 ! ; 4915 1 ! 0 - Failure. ; 4916 1 ! 1 - Success. ; 4917 1 ! ; 4918 1 ! SIDE EFFECTS: ; 4919 1 ! ; 4920 1 ! None. ; 4921 1 ! ; 4922 1 !-- ; 4923 1 ; 4924 2 BEGIN ; 4925 2 GEN_2SIZE = .TEMP_DESC [DSC$W_LENGTH]; ; 4926 2 CH$COPY (.TEMP_DESC [DSC$W_LENGTH], CH$PTR (TEMP_NAME), 0, .TEMP_DESC [DSC$W_LENGTH] + 1, ; 4927 2 CH$PTR (GEN_2DATA)); ; 4928 2 RETURN SS$_NORMAL; ; 4929 1 END; ! End of COPY_GEN_2DATA ;COPY_GEN_2DATA U.1404: .WORD ^M<R2,R3,R4,R5> ;Save R2,R3,R4,R5 4882 003C 00000 MOVZWL G^U.63, R1 ;U.63, R1 4925 51 00000000' 00 3C 00002 MOVL R1, G^GEN_2SIZE ;R1, GEN_2SIZE 00000000G 00 51 D0 00009 MOVAB 1(R1), R0 ;1(R1), R0 4926 50 01 A1 9E 00010 MOVC5 R1, G^U.64, #0, R0, G^GEN_2DATA ;R1, U.64, #0, R0, GEN_2DATA 4927 00000000' 00 51 2C 00014 ; 50 00 0001B ; 00000000G 00 0001D MOVL #1, R0 ;#1, R0 4928 50 01 D0 00022 RET ; 04 00025 ; Routine Size: 38 bytes, Routine Base: $CODE$ + 12B2 ; 4930 1 %SBTTL 'TPARSE support -- COPY_GEN_3DATA - Copy generic command argument' ; 4931 1 ROUTINE COPY_GEN_3DATA = ; 4932 1 ; 4933 1 !++ ; 4934 1 ! FUNCTIONAL DESCRIPTION: ; 4935 1 ! ; 4936 1 ! This routine will copy the generic command argument from the ; 4937 1 ! temporary descriptor to the global storage for the argument ; 4938 1 ! (GEN_3DATA). ; 4939 1 ! ; 4940 1 ! CALLING SEQUENCE: ; 4941 1 ! ; 4942 1 ! COPY_GEN_3DATA(); ; 4943 1 ! ; 4944 1 ! INPUT PARAMETERS: ; 4945 1 ! ; 4946 1 ! None. ; 4947 1 ! ; 4948 1 ! IMPLICIT INPUTS: ; 4949 1 ! ; 4950 1 ! TEMP_DESC and TEMP_NAME set up with the device name and length ; 4951 1 ! in the descriptor. ; 4952 1 ! ; 4953 1 ! OUTPUT PARAMETERS: ; 4954 1 ! ; 4955 1 ! None. ; 4956 1 ! ; 4957 1 ! IMPLICIT OUTPUTS: ; 4958 1 ! ; 4959 1 ! GEN_3DATA and GEN_3SIZE set up with what was in TEMP_NAME and ; 4960 1 ! TEMP_DESC. ; 4961 1 ! ; 4962 1 ! COMPLETION CODES: ; 4963 1 ! ; 4964 1 ! 0 - Failure. ; 4965 1 ! 1 - Success. ; 4966 1 ! ; 4967 1 ! SIDE EFFECTS: ; 4968 1 ! ; 4969 1 ! None. ; 4970 1 ! ; 4971 1 !-- ; 4972 1 ; 4973 2 BEGIN ; 4974 2 GEN_3SIZE = .TEMP_DESC [DSC$W_LENGTH]; ; 4975 2 CH$COPY (.TEMP_DESC [DSC$W_LENGTH], CH$PTR (TEMP_NAME), 0, .TEMP_DESC [DSC$W_LENGTH] + 1, ; 4976 2 CH$PTR (GEN_3DATA)); ; 4977 2 RETURN SS$_NORMAL; ; 4978 1 END; ! End of COPY_GEN_3DATA ;COPY_GEN_3DATA U.1405: .WORD ^M<R2,R3,R4,R5> ;Save R2,R3,R4,R5 4931 003C 00000 MOVZWL G^U.63, R1 ;U.63, R1 4974 51 00000000' 00 3C 00002 MOVL R1, G^GEN_3SIZE ;R1, GEN_3SIZE 00000000G 00 51 D0 00009 MOVAB 1(R1), R0 ;1(R1), R0 4975 50 01 A1 9E 00010 MOVC5 R1, G^U.64, #0, R0, G^GEN_3DATA ;R1, U.64, #0, R0, GEN_3DATA 4976 00000000' 00 51 2C 00014 ; 50 00 0001B ; 00000000G 00 0001D MOVL #1, R0 ;#1, R0 4977 50 01 D0 00022 RET ; 04 00025 ; Routine Size: 38 bytes, Routine Base: $CODE$ + 12D8 ; 4979 1 %SBTTL 'COPY_TERM_NAME' ; 4980 1 ROUTINE COPY_TERM_NAME = ; 4981 1 ; 4982 1 !++ ; 4983 1 ! FUNCTIONAL DESCRIPTION: ; 4984 1 ! ; 4985 1 ! This routine will copy the device name from the temporary ; 4986 1 ! descriptor to the descriptor that is used for the terminal name. ; 4987 1 ! (TERM_NAME and TERM_DESC). ; 4988 1 ! It will call KERTRM to validate the name as a usuable terminal. ; 4989 1 ! ; 4990 1 ! CALLING SEQUENCE: ; 4991 1 ! ; 4992 1 ! COPY_TERM_NAME(); ; 4993 1 ! ; 4994 1 ! INPUT PARAMETERS: ; 4995 1 ! ; 4996 1 ! None. ; 4997 1 ! ; 4998 1 ! IMPLICIT INPUTS: ; 4999 1 ! ; 5000 1 ! TEMP_DESC and TEMP_NAME set up with the device name and length ; 5001 1 ! in the descriptor. ; 5002 1 ! ; 5003 1 ! OUTPUT PARAMETERS: ; 5004 1 ! ; 5005 1 ! None. ; 5006 1 ! ; 5007 1 ! IMPLICIT OUTPUTS: ; 5008 1 ! ; 5009 1 ! TERM_NAME and TERM_DESC set up with what was in TEMP_NAME and ; 5010 1 ! TEMP_DESC. ; 5011 1 ! ; 5012 1 ! COMPLETION CODES: ; 5013 1 ! ; 5014 1 ! 0 - Failure. ; 5015 1 ! 1 - Success. ; 5016 1 ! ; 5017 1 ! SIDE EFFECTS: ; 5018 1 ! ; 5019 1 ! None. ; 5020 1 ! ; 5021 1 !-- ; 5022 1 ; 5023 2 BEGIN ; 5024 2 ; 5025 2 EXTERNAL ; 5026 2 JOB_TERM_DESC : BLOCK [8, BYTE]; ! Descriptor for jobs contolling terminal ; 5027 2 ; 5028 2 IF NOT CH$FAIL (CH$FIND_NOT_CH (.TEMP_DESC [DSC$W_LENGTH], CH$PTR (.TEMP_DESC [DSC$A_POINTER]), %C' ')) ; 5029 2 THEN ; 5030 2 RETURN SET_TRANS_TERM (TEMP_DESC) ; 5031 2 ELSE ; 5032 2 ; 5033 2 IF NOT SET_TRANS_TERM (%ASCID'KER$COMM') ; 5034 2 THEN ; 5035 2 ; 5036 2 IF NOT SET_TRANS_TERM (%ASCID'SYS$INPUT') ; 5037 2 THEN ; 5038 2 ; 5039 2 IF NOT SET_TRANS_TERM (%ASCID'SYS$OUTPUT') ; 5040 2 THEN ; 5041 2 ; 5042 2 IF NOT SET_TRANS_TERM (%ASCID'SYS$COMMAND') THEN RETURN SET_TRANS_TERM (JOB_TERM_DESC); ; 5043 2 ; 5044 2 RETURN SS$_NORMAL; ; 5045 1 END; ! End of COPY_TERM_NAME .PSECT $PLIT$,NOWRT,NOEXE,2 P.AGQ: .ASCII \KER$COMM\ ; 4D 4D 4F 43 24 52 45 4B 009EC P.AGP: .LONG 17694728 ; 010E0008 009F4 .ADDRESS P.AGQ ; 00000000' 009F8 P.AGS: .ASCII \SYS$INPUT\<0><0><0> ; 55 50 4E 49 24 53 59 53 009FC ; 00 00 00 54 00A04 P.AGR: .LONG 17694729 ; 010E0009 00A08 .ADDRESS P.AGS ; 00000000' 00A0C P.AGU: .ASCII \SYS$OUTPUT\<0><0> ; 50 54 55 4F 24 53 59 53 00A10 ; 00 00 54 55 00A18 P.AGT: .LONG 17694730 ; 010E000A 00A1C .ADDRESS P.AGU ; 00000000' 00A20 P.AGW: .ASCII \SYS$COMMAND\<0> ; 4D 4D 4F 43 24 53 59 53 00A24 ; 00 44 4E 41 00A2C P.AGV: .LONG 17694731 ; 010E000B 00A30 .ADDRESS P.AGW ; 00000000' 00A34 .EXTRN JOB_TERM_DESC .PSECT $CODE$,NOWRT,2 ;COPY_TERM_NAME U.13: .WORD ^M<R2,R3,R4> ;Save R2,R3,R4 4980 001C 00000 MOVAB G^U.63, R4 ;U.63, R4 54 00000000' 00 9E 00002 MOVAB G^P.AGP, R3 ;P.AGP, R3 53 00000000' 00 9E 00009 MOVAB G^SET_TRANS_TERM, R2 ;SET_TRANS_TERM, R2 52 00000000G 00 9E 00010 MOVL 4(R4), R0 ;TEMP_DESC+4, R0 5028 50 04 A4 D0 00017 SKPC #32, (R4), (R0) ;#32, TEMP_DESC, (R0) 64 20 3B 0001B ; 60 0001E BNEQ 1$ ;1$ 02 12 0001F CLRL R1 ;R1 51 D4 00021 1$: TSTL R1 ;R1 51 D5 00023 BEQL 2$ ;2$ 04 13 00025 PUSHL R4 ;R4 5030 54 DD 00027 BRB 3$ ;3$ 29 11 00029 2$: PUSHL R3 ;R3 5033 53 DD 0002B CALLS #1, (R2) ;#1, SET_TRANS_TERM 62 01 FB 0002D BLBS R0, 4$ ;R0, 4$ 25 50 E8 00030 PUSHAB 20(R3) ;P.AGR 5036 14 A3 9F 00033 CALLS #1, (R2) ;#1, SET_TRANS_TERM 62 01 FB 00036 BLBS R0, 4$ ;R0, 4$ 1C 50 E8 00039 PUSHAB 40(R3) ;P.AGT 5039 28 A3 9F 0003C CALLS #1, (R2) ;#1, SET_TRANS_TERM 62 01 FB 0003F BLBS R0, 4$ ;R0, 4$ 13 50 E8 00042 PUSHAB 60(R3) ;P.AGV 5042 3C A3 9F 00045 CALLS #1, (R2) ;#1, SET_TRANS_TERM 62 01 FB 00048 BLBS R0, 4$ ;R0, 4$ 0A 50 E8 0004B PUSHAB G^JOB_TERM_DESC ;JOB_TERM_DESC 00000000G 00 9F 0004E 3$: CALLS #1, (R2) ;#1, SET_TRANS_TERM 62 01 FB 00054 RET ; 04 00057 4$: MOVL #1, R0 ;#1, R0 5044 50 01 D0 00058 RET ; 04 0005B ; Routine Size: 92 bytes, Routine Base: $CODE$ + 12FE ; 5046 1 %SBTTL 'KEY_ERROR - Handle keyword errors' ; 5047 1 ROUTINE KEY_ERROR = ; 5048 1 ; 5049 1 !++ ; 5050 1 ! FUNCTIONAL DESCRIPTION: ; 5051 1 ! ; 5052 1 ! This routine is called from the command parser (LIB$TPARSE) when a keyword ; 5053 1 ! does not match. It will just return the correct error code. ; 5054 1 ! ; 5055 1 ! CALLING SEQUENCE: ; 5056 1 ! ; 5057 1 ! STATUS = KEY_ERROR (); ; 5058 1 ! ; 5059 1 ! INPUT PARAMETERS: ; 5060 1 ! ; 5061 1 ! None. ; 5062 1 ! ; 5063 1 ! IMPLICIT INPUTS: ; 5064 1 ! ; 5065 1 ! None. ; 5066 1 ! ; 5067 1 ! OUPTUT PARAMETERS: ; 5068 1 ! ; 5069 1 ! None. ; 5070 1 ! ; 5071 1 ! IMPLICIT OUTPUTS: ; 5072 1 ! ; 5073 1 ! None. ; 5074 1 ! ; 5075 1 ! COMPLETION CODES: ; 5076 1 ! ; 5077 1 ! None. ; 5078 1 ! ; 5079 1 ! SIDE EFFECTS: ; 5080 1 ! ; 5081 1 ! None. ; 5082 1 ! ; 5083 1 !-- ; 5084 1 ; 5085 2 BEGIN ; 5086 2 TPARSE_ARGS; ; 5087 2 ; 5088 2 IF .AP [TPA$V_AMBIG] THEN RETURN KER_AMBIGKEY ELSE RETURN KER_UNKNOWKEY; ; 5089 2 ; 5090 1 END; ! End of KEY_ERROR ;KEY_ERROR U.36: .WORD ^M<> ;Save nothing 5047 0000 00000 BLBC 6(AP), 1$ ;6(AP), 1$ 5088 08 06 AC E9 00002 MOVL #134316282, R0 ;#134316282, R0 50 080180FA 8F D0 00006 RET ; 04 0000D 1$: MOVL #134316290, R0 ;#134316290, R0 50 08018102 8F D0 0000E RET ; 04 00015 ; Routine Size: 22 bytes, Routine Base: $CODE$ + 135A ; 5091 1 %SBTTL 'XFR_STATUS - Return the transfer status' ; 5092 1 ; 5093 1 GLOBAL ROUTINE XFR_STATUS (TYPE, SUB_TYPE) : NOVALUE = ; 5094 1 ; 5095 1 !++ ; 5096 1 ! FUNCTIONAL DESCRIPTION: ; 5097 1 ! ; 5098 1 ! This routine is called after either a packet has been received ; 5099 1 ! correctly at the receive level, a packet has been sent, or ; 5100 1 ! either a NAK has been sent or received. ; 5101 1 ! ; 5102 1 ! CALLING SEQUENCE: ; 5103 1 ! ; 5104 1 ! XFR_STATUS (Type); ; 5105 1 ! ; 5106 1 ! INPUT PARAMETERS: ; 5107 1 ! ; 5108 1 ! Type - ASCII Characters describing the type of transfer ; 5109 1 ! ; 5110 1 ! IMPLICIT INPUTS: ; 5111 1 ! ; 5112 1 ! None. ; 5113 1 ! ; 5114 1 ! OUPTUT PARAMETERS: ; 5115 1 ! ; 5116 1 ! None. ; 5117 1 ! ; 5118 1 ! IMPLICIT OUTPUTS: ; 5119 1 ! ; 5120 1 ! None. ; 5121 1 ! ; 5122 1 ! COMPLETION CODES: ; 5123 1 ! ; 5124 1 ! None. ; 5125 1 ! ; 5126 1 ! SIDE EFFECTS: ; 5127 1 ! ; 5128 1 ! None. ; 5129 1 ! ; 5130 1 !-- ; 5131 1 ; 5132 2 BEGIN ; 5133 2 ; 5134 2 EXTERNAL ROUTINE ; 5135 2 LOG_FAOL; ; 5136 2 ; 5137 2 ! ; 5138 2 ! If we have a journal file (transaction log), then say what we are doing. ; 5139 2 ! ; 5140 2 ; 5141 2 IF .TRANSACTION_OPEN AND .TYPE EQL %C'F' ; 5142 2 THEN ; 5143 3 BEGIN ; 5144 3 FILE_DESC [DSC$W_LENGTH] = .FILE_SIZE; ! Make sure size is right ; 5145 3 ; 5146 3 SELECTONE .SUB_TYPE OF ; 5147 3 SET ; 5148 3 ; 5149 3 [%C'S'] : ; 5150 3 LOG_FAOL (%ASCID'!%T!_Sending file !AS!/', UPLIT (0, FILE_DESC), TRANSACTION_RAB); ; 5151 3 ; 5152 3 [%C'R'] : ; 5153 3 LOG_FAOL (%ASCID'!%T!_Receiving file !AS!/', UPLIT (0, FILE_DESC), TRANSACTION_RAB); ; 5154 3 ; 5155 3 [%C'C'] : ; 5156 3 LOG_FAOL (%ASCID'!%T!_Closing file !AS!/', UPLIT (0, FILE_DESC), TRANSACTION_RAB); ; 5157 3 ; 5158 3 [%C'X'] : ; 5159 3 LOG_FAOL (%ASCID'!%T!_Aborting file !AS by user request!/', UPLIT (0, FILE_DESC), ; 5160 3 TRANSACTION_RAB); ; 5161 3 ; 5162 3 [%C'Z'] : ; 5163 3 LOG_FAOL (%ASCID'!%T!_Aborting file group !AS by user request!/', UPLIT (0, FILE_DESC), ; 5164 3 TRANSACTION_RAB); ; 5165 3 ; 5166 3 [%C'D'] : ; 5167 3 LOG_FAOL (%ASCID'!%T!_Aborting file !AS, partial file saved!/', UPLIT (0, FILE_DESC), ; 5168 3 TRANSACTION_RAB); ; 5169 3 ; 5170 3 [%C'A'] : ; 5171 3 LOG_FAOL (%ASCID'!%T!_Aborting file !AS due to protocol error!/', UPLIT (0, FILE_DESC), ; 5172 3 TRANSACTION_RAB); ; 5173 3 TES; ; 5174 3 ; 5175 2 END; ; 5176 2 ; 5177 2 IF .TY_PKT ; 5178 2 THEN ; 5179 3 BEGIN ; 5180 3 ; 5181 3 SELECTONE .TYPE OF ; 5182 3 SET ; 5183 3 ; 5184 3 [%ASCII'R'] : ; 5185 4 BEGIN ; 5186 4 ; 5187 4 IF .SUB_TYPE EQL %C'P' ; 5188 4 THEN ; 5189 5 BEGIN ; 5190 5 TT_TEXT (UPLIT (%ASCIZ' R')); ; 5191 5 TT_NUMBER (.RMSG_COUNT); ; 5192 4 END; ; 5193 4 ; 5194 4 IF .SUB_TYPE EQL %C'N' ; 5195 4 THEN ; 5196 5 BEGIN ; 5197 5 TT_TEXT (UPLIT (%ASCIZ' R%')); ; 5198 5 TT_NUMBER (.RMSG_NAKS); ; 5199 4 END; ; 5200 4 ; 5201 3 END; ; 5202 3 ; 5203 3 [%ASCII'S'] : ; 5204 4 BEGIN ; 5205 4 ; 5206 4 IF .SUB_TYPE EQL %C'P' ; 5207 4 THEN ; 5208 5 BEGIN ; 5209 5 TT_TEXT (UPLIT (%ASCIZ' S')); ; 5210 5 TT_NUMBER (.SMSG_COUNT); ; 5211 4 END; ; 5212 4 ; 5213 4 IF .SUB_TYPE EQL %C'N' ; 5214 4 THEN ; 5215 5 BEGIN ; 5216 5 TT_TEXT (UPLIT (%ASCIZ' S%')); ; 5217 5 TT_NUMBER (.SMSG_NAKS); ; 5218 4 END; ; 5219 4 ; 5220 3 END; ; 5221 3 TES; ; 5222 3 ; 5223 3 TT_OUTPUT (); ; 5224 2 END; ; 5225 2 ; 5226 1 END; ! End of XFR_STATUS .PSECT $PLIT$,NOWRT,NOEXE,2 P.AGY: .ASCII \!%T!_Sending file !AS!/\<0> ; 6E 65 53 5F 21 54 25 21 00A38 ; 6C 69 66 20 67 6E 69 64 00A40 ; 00 2F 21 53 41 21 20 65 00A48 P.AGX: .LONG 17694743 ; 010E0017 00A50 .ADDRESS P.AGY ; 00000000' 00A54 P.AGZ: .LONG 0 ; 00000000 00A58 .ADDRESS FILE_DESC ; 00000000G 00A5C P.AHB: .ASCII \!%T!_Receiving file !AS!/\<0><0><0> ; 63 65 52 5F 21 54 25 21 00A60 ; 66 20 67 6E 69 76 69 65 00A68 ; 21 53 41 21 20 65 6C 69 00A70 ; 00 00 00 2F 00A78 P.AHA: .LONG 17694745 ; 010E0019 00A7C .ADDRESS P.AHB ; 00000000' 00A80 P.AHC: .LONG 0 ; 00000000 00A84 .ADDRESS FILE_DESC ; 00000000G 00A88 P.AHE: .ASCII \!%T!_Closing file !AS!/\<0> ; 6F 6C 43 5F 21 54 25 21 00A8C ; 6C 69 66 20 67 6E 69 73 00A94 ; 00 2F 21 53 41 21 20 65 00A9C P.AHD: .LONG 17694743 ; 010E0017 00AA4 .ADDRESS P.AHE ; 00000000' 00AA8 P.AHF: .LONG 0 ; 00000000 00AAC .ADDRESS FILE_DESC ; 00000000G 00AB0 P.AHH: .ASCII \!%T!_Aborting file !AS by user request!/\ ; 6F 62 41 5F 21 54 25 21 00AB4 ; 69 66 20 67 6E 69 74 72 00ABC ; 62 20 53 41 21 20 65 6C 00AC4 ; 72 20 72 65 73 75 20 79 00ACC ; 2F 21 74 73 65 75 71 65 00AD4 P.AHG: .LONG 17694760 ; 010E0028 00ADC .ADDRESS P.AHH ; 00000000' 00AE0 P.AHI: .LONG 0 ; 00000000 00AE4 .ADDRESS FILE_DESC ; 00000000G 00AE8 P.AHK: .ASCII \!%T!_Aborting file group !AS by user request!/\<0><0> ; 6F 62 41 5F 21 54 25 21 00AEC ; 69 66 20 67 6E 69 74 72 00AF4 ; 70 75 6F 72 67 20 65 6C 00AFC ; 20 79 62 20 53 41 21 20 00B04 ; 71 65 72 20 72 65 73 75 00B0C ; 00 00 2F 21 74 73 65 75 00B14 P.AHJ: .LONG 17694766 ; 010E002E 00B1C .ADDRESS P.AHK ; 00000000' 00B20 P.AHL: .LONG 0 ; 00000000 00B24 .ADDRESS FILE_DESC ; 00000000G 00B28 P.AHN: .ASCII \!%T!_Aborting file !AS, partial file saved!/\ ; 6F 62 41 5F 21 54 25 21 00B2C ; 69 66 20 67 6E 69 74 72 00B34 ; 20 2C 53 41 21 20 65 6C 00B3C ; 20 6C 61 69 74 72 61 70 00B44 ; 76 61 73 20 65 6C 69 66 00B4C ; 2F 21 64 65 00B54 P.AHM: .LONG 17694764 ; 010E002C 00B58 .ADDRESS P.AHN ; 00000000' 00B5C P.AHO: .LONG 0 ; 00000000 00B60 .ADDRESS FILE_DESC ; 00000000G 00B64 P.AHQ: .ASCII \!%T!_Aborting file !AS due to protocol error!/\<0><0> ; 6F 62 41 5F 21 54 25 21 00B68 ; 69 66 20 67 6E 69 74 72 00B70 ; 64 20 53 41 21 20 65 6C 00B78 ; 72 70 20 6F 74 20 65 75 00B80 ; 65 20 6C 6F 63 6F 74 6F 00B88 ; 00 00 2F 21 72 6F 72 72 00B90 P.AHP: .LONG 17694766 ; 010E002E 00B98 .ADDRESS P.AHQ ; 00000000' 00B9C P.AHR: .LONG 0 ; 00000000 00BA0 .ADDRESS FILE_DESC ; 00000000G 00BA4 P.AHS: .ASCII \ R\<0><0> ; 00 00 52 20 00BA8 P.AHT: .ASCII \ R%\<0> ; 00 25 52 20 00BAC P.AHU: .ASCII \ S\<0><0> ; 00 00 53 20 00BB0 P.AHV: .ASCII \ S%\<0> ; 00 25 53 20 00BB4 .EXTRN LOG_FAOL .PSECT $CODE$,NOWRT,2 .ENTRY XFR_STATUS, ^M<R2,R3,R4,R5,R6> ;XFR_STATUS, Save R2,R3,R4,R5,R6 5093 007C 00000 MOVAB G^TT_NUMBER, R6 ;TT_NUMBER, R6 56 00000000G 00 9E 00002 MOVAB G^TT_TEXT, R5 ;TT_TEXT, R5 55 00000000G 00 9E 00009 MOVAB G^TRANSACTION_RAB, R4 ;TRANSACTION_RAB, R4 54 00000000' 00 9E 00010 MOVAB G^P.AGZ, R3 ;P.AGZ, R3 53 00000000' 00 9E 00017 BLBS -84(R4), 2$ ;TRANSACTION_OPEN, 2$ 5141 03 AC A4 E8 0001E 1$: BRW 10$ ;10$ 00A8 31 00022 2$: CMPL 4(AP), #70 ;TYPE, #70 00000046 8F 04 AC D1 00025 BNEQ 1$ ;1$ F3 12 0002D MOVW G^FILE_SIZE, G^FILE_DESC ;FILE_SIZE, FILE_DESC 5144 00000000G 00 00000000G 00 B0 0002F MOVL 8(AP), R2 ;SUB_TYPE, R2 5146 52 08 AC D0 0003A CMPL R2, #83 ;R2, #83 5149 00000053 8F 52 D1 0003E BNEQ 3$ ;3$ 07 12 00045 PUSHR #^M<R3,R4> ;#^M<R3,R4> 5150 18 BB 00047 PUSHAB -8(R3) ;P.AGX F8 A3 9F 00049 BRB 9$ ;9$ 78 11 0004C 3$: CMPL R2, #82 ;R2, #82 5152 00000052 8F 52 D1 0004E BNEQ 4$ ;4$ 0A 12 00055 PUSHL R4 ;R4 5153 54 DD 00057 PUSHAB 44(R3) ;P.AHC 2C A3 9F 00059 PUSHAB 36(R3) ;P.AHA 24 A3 9F 0005C BRB 9$ ;9$ 65 11 0005F 4$: CMPL R2, #67 ;R2, #67 5155 00000043 8F 52 D1 00061 BNEQ 5$ ;5$ 0A 12 00068 PUSHL R4 ;R4 5156 54 DD 0006A PUSHAB 84(R3) ;P.AHF 54 A3 9F 0006C PUSHAB 76(R3) ;P.AHD 4C A3 9F 0006F BRB 9$ ;9$ 52 11 00072 5$: CMPL R2, #88 ;R2, #88 5158 00000058 8F 52 D1 00074 BNEQ 6$ ;6$ 0C 12 0007B PUSHL R4 ;R4 5160 54 DD 0007D PUSHAB 140(R3) ;P.AHI 5159 008C C3 9F 0007F PUSHAB 132(R3) ;P.AHG 0084 C3 9F 00083 BRB 9$ ;9$ 3D 11 00087 6$: CMPL R2, #90 ;R2, #90 5162 0000005A 8F 52 D1 00089 BNEQ 7$ ;7$ 0C 12 00090 PUSHL R4 ;R4 5164 54 DD 00092 PUSHAB 204(R3) ;P.AHL 5163 00CC C3 9F 00094 PUSHAB 196(R3) ;P.AHJ 00C4 C3 9F 00098 BRB 9$ ;9$ 28 11 0009C 7$: CMPL R2, #68 ;R2, #68 5166 00000044 8F 52 D1 0009E BNEQ 8$ ;8$ 0C 12 000A5 PUSHL R4 ;R4 5168 54 DD 000A7 PUSHAB 264(R3) ;P.AHO 5167 0108 C3 9F 000A9 PUSHAB 256(R3) ;P.AHM 0100 C3 9F 000AD BRB 9$ ;9$ 13 11 000B1 8$: CMPL R2, #65 ;R2, #65 5170 00000041 8F 52 D1 000B3 BNEQ 10$ ;10$ 11 12 000BA PUSHL R4 ;R4 5172 54 DD 000BC PUSHAB 328(R3) ;P.AHR 5171 0148 C3 9F 000BE PUSHAB 320(R3) ;P.AHP 0140 C3 9F 000C2 9$: CALLS #3, G^LOG_FAOL ;#3, LOG_FAOL 00000000G 00 03 FB 000C6 10$: BLBS G^TY_PKT, 11$ ;TY_PKT, 11$ 5177 01 00000000G 00 E8 000CD RET ; 04 000D4 11$: MOVL 4(AP), R0 ;TYPE, R0 5181 50 04 AC D0 000D5 CMPL R0, #82 ;R0, #82 5184 00000052 8F 50 D1 000D9 BNEQ 13$ ;13$ 33 12 000E0 CMPL 8(AP), #80 ;SUB_TYPE, #80 5187 00000050 8F 08 AC D1 000E2 BNEQ 12$ ;12$ 10 12 000EA PUSHAB 336(R3) ;P.AHS 5190 0150 C3 9F 000EC CALLS #1, (R5) ;#1, TT_TEXT 65 01 FB 000F0 PUSHL G^RMSG_COUNT ;RMSG_COUNT 5191 00000000G 00 DD 000F3 CALLS #1, (R6) ;#1, TT_NUMBER 66 01 FB 000F9 12$: CMPL 8(AP), #78 ;SUB_TYPE, #78 5194 0000004E 8F 08 AC D1 000FC BNEQ 16$ ;16$ 4C 12 00104 PUSHAB 340(R3) ;P.AHT 5197 0154 C3 9F 00106 CALLS #1, (R5) ;#1, TT_TEXT 65 01 FB 0010A PUSHL G^RMSG_NAKS ;RMSG_NAKS 5198 00000000G 00 DD 0010D BRB 15$ ;15$ 3A 11 00113 13$: CMPL R0, #83 ;R0, #83 5203 00000053 8F 50 D1 00115 BNEQ 16$ ;16$ 34 12 0011C CMPL 8(AP), #80 ;SUB_TYPE, #80 5206 00000050 8F 08 AC D1 0011E BNEQ 14$ ;14$ 10 12 00126 PUSHAB 344(R3) ;P.AHU 5209 0158 C3 9F 00128 CALLS #1, (R5) ;#1, TT_TEXT 65 01 FB 0012C PUSHL G^SMSG_COUNT ;SMSG_COUNT 5210 00000000G 00 DD 0012F CALLS #1, (R6) ;#1, TT_NUMBER 66 01 FB 00135 14$: CMPL 8(AP), #78 ;SUB_TYPE, #78 5213 0000004E 8F 08 AC D1 00138 BNEQ 16$ ;16$ 10 12 00140 PUSHAB 348(R3) ;P.AHV 5216 015C C3 9F 00142 CALLS #1, (R5) ;#1, TT_TEXT 65 01 FB 00146 PUSHL G^SMSG_NAKS ;SMSG_NAKS 5217 00000000G 00 DD 00149 15$: CALLS #1, (R6) ;#1, TT_NUMBER 66 01 FB 0014F 16$: CALLS #0, G^TT_OUTPUT ;#0, TT_OUTPUT 5223 00000000G 00 00 FB 00152 RET ; 5226 04 00159 ; Routine Size: 346 bytes, Routine Base: $CODE$ + 1370 ; 5227 1 ; 5228 1 %SBTTL 'CRCCLC - Calculate the CRC-CCITT for a message' ; 5229 1 ; 5230 1 GLOBAL ROUTINE CRCCLC (POINTER, SIZE) = ; 5231 1 ; 5232 1 !++ ; 5233 1 ! FUNCTIONAL DESCRIPTION: ; 5234 1 ! ; 5235 1 ! This routine will calculate the CRC for a message. It will use ; 5236 1 ! the VAX LIB$ routine to do all the work. ; 5237 1 ! ; 5238 1 ! CALLING SEQUENCE: ; 5239 1 ! ; 5240 1 ! CRC = CRCCLC(Pointer, Size) ; 5241 1 ! ; 5242 1 ! INPUT PARAMETERS: ; 5243 1 ! ; 5244 1 ! Pointer - Character pointer to the message. ; 5245 1 ! Size - Length of the message. ; 5246 1 ! ; 5247 1 ! IMPLICIT INPUTS: ; 5248 1 ! ; 5249 1 ! None. ; 5250 1 ! ; 5251 1 ! OUPTUT PARAMETERS: ; 5252 1 ! ; 5253 1 ! CRC for the message. ; 5254 1 ! ; 5255 1 ! IMPLICIT OUTPUTS: ; 5256 1 ! ; 5257 1 ! None. ; 5258 1 ! ; 5259 1 ! COMPLETION CODES: ; 5260 1 ! ; 5261 1 ! None. ; 5262 1 ! ; 5263 1 ! SIDE EFFECTS: ; 5264 1 ! ; 5265 1 ! None. ; 5266 1 ! ; 5267 1 !-- ; 5268 1 ; 5269 2 BEGIN ; 5270 2 ; 5271 2 LOCAL ; 5272 2 TEMP_DESC : BLOCK [8, BYTE], ! Temporary descriptor ; 5273 2 CRC_INITIAL; ! Initial CRC value ; 5274 2 ; 5275 2 CRC_INITIAL = 0; ! Set the initial value ; 5276 2 INIT_STR_DESC (TEMP_DESC, .POINTER, .SIZE); ; 5277 2 RETURN LIB$CRC (CRC_TABLE, CRC_INITIAL, TEMP_DESC); ; 5278 1 END; ! End of CRCCLC .ENTRY CRCCLC, ^M<> ;CRCCLC, Save nothing 5230 0000 00000 SUBL2 #8, SP ;#8, SP 5E 08 C2 00002 CLRL -(SP) ;CRC_INITIAL 5275 7E D4 00005 MOVW #270, 6(SP) ;#270, TEMP_DESC+2 5276 06 AE 010E 8F B0 00007 MOVW 8(AP), 4(SP) ;SIZE, TEMP_DESC 04 AE 08 AC B0 0000D MOVL 4(AP), 8(SP) ;POINTER, TEMP_DESC+4 08 AE 04 AC D0 00012 PUSHAB 4(SP) ;TEMP_DESC 5277 04 AE 9F 00017 PUSHAB 4(SP) ;CRC_INITIAL 04 AE 9F 0001A PUSHAB G^U.60 ;U.60 00000000' 00 9F 0001D CALLS #3, G^LIB$CRC ;#3, LIB$CRC 00000000G 00 03 FB 00023 RET ; 04 0002A ; Routine Size: 43 bytes, Routine Base: $CODE$ + 14CA ; 5279 1 ; 5280 1 %SBTTL 'KRM_ERROR - Issue an error message given error code' ; 5281 1 ; 5282 1 GLOBAL ROUTINE KRM_ERROR (ERROR_CODE) : NOVALUE = ; 5283 1 ; 5284 1 !++ ; 5285 1 ! FUNCTIONAL DESCRIPTION: ; 5286 1 ! ; 5287 1 ! This routine will cause an error message to be issued to the ; 5288 1 ! user's terminal and/or a message to be sent to the remote KERMIT. ; 5289 1 ! ; 5290 1 ! CALLING SEQUENCE: ; 5291 1 ! ; 5292 1 ! KRM_ERROR(KER_xxxxxx); ; 5293 1 ! ; 5294 1 ! INPUT PARAMETERS: ; 5295 1 ! ; 5296 1 ! KER_xxxxxx - Error code from KERERR.REQ ; 5297 1 ! ; 5298 1 ! IMPLICIT INPUTS: ; 5299 1 ! ; 5300 1 ! None. ; 5301 1 ! ; 5302 1 ! OUTPUT PARAMETERS: ; 5303 1 ! ; 5304 1 ! None. ; 5305 1 ! ; 5306 1 ! IMPLICIT OUTPUTS: ; 5307 1 ! ; 5308 1 ! None. ; 5309 1 ! ; 5310 1 ! COMPLETION CODES: ; 5311 1 ! ; 5312 1 ! None. ; 5313 1 ! ; 5314 1 ! SIDE EFFECTS: ; 5315 1 ! ; 5316 1 ! None. ; 5317 1 ! ; 5318 1 !-- ; 5319 1 ; 5320 2 BEGIN ; 5321 2 LIB$SIGNAL (.ERROR_CODE); ; 5322 1 END; ! End of KRM_ERROR .ENTRY KRM_ERROR, ^M<> ;KRM_ERROR, Save nothing 5282 0000 00000 PUSHL 4(AP) ;ERROR_CODE 5321 04 AC DD 00002 CALLS #1, G^LIB$SIGNAL ;#1, LIB$SIGNAL 00000000G 00 01 FB 00005 RET ; 5322 04 0000C ; Routine Size: 13 bytes, Routine Base: $CODE$ + 14F5 ; 5323 1 ; 5324 1 %SBTTL 'KERM_HANDLER - Condition handler' ; 5325 1 ROUTINE KERM_HANDLER = ; 5326 1 ; 5327 1 !++ ; 5328 1 ! FUNCTIONAL DESCRIPTION: ; 5329 1 ! ; 5330 1 ! This is the condition handler for KERMIT-32. ; 5331 1 ! ; 5332 1 ! CALLING SEQUENCE: ; 5333 1 ! ; 5334 1 ! Called via LIB$SIGNAL. ; 5335 1 ! ; 5336 1 ! INPUT PARAMETERS: ; 5337 1 ! ; 5338 1 ! None. ; 5339 1 ! ; 5340 1 ! IMPLICIT INPUTS: ; 5341 1 ! ; 5342 1 ! None. ; 5343 1 ! ; 5344 1 ! OUTPUT PARAMETERS: ; 5345 1 ! ; 5346 1 ! None. ; 5347 1 ! ; 5348 1 ! IMPLICIT OUTPUTS: ; 5349 1 ! ; 5350 1 ! None. ; 5351 1 ! ; 5352 1 ! COMPLETION CODES: ; 5353 1 ! ; 5354 1 ! None. ; 5355 1 ! ; 5356 1 ! SIDE EFFECTS: ; 5357 1 ! ; 5358 1 ! None. ; 5359 1 ! ; 5360 1 !-- ; 5361 1 ; 5362 2 BEGIN ; 5363 2 ; 5364 2 BIND ; 5365 2 FACILITY_DESC = %ASCID'KERMIT32'; ; 5366 2 ; 5367 2 BUILTIN ; 5368 2 AP; ; 5369 2 ; 5370 2 LOCAL ; 5371 2 PUTMSG_VECTOR : VECTOR [10, LONG], ; 5372 2 SIGARGLST; ! Address of the signal argument list ; 5373 2 ; 5374 2 MAP ; 5375 2 AP : REF BLOCK [, BYTE], ; 5376 2 SIGARGLST : REF BLOCK [, BYTE]; ; 5377 2 ; 5378 2 !++ ; 5379 2 ! ; 5380 2 ! Routine to do the actual output of the error message ; 5381 2 ! ; 5382 2 !-- ; 5383 2 ; 5384 2 ROUTINE HANDLE_MSG = ; 5385 3 BEGIN ; 5386 3 ; 5387 3 EXTERNAL ROUTINE ; 5388 3 LOG_FAOL; ; 5389 3 ; 5390 3 BUILTIN ; 5391 3 AP; ; 5392 3 ; 5393 3 LOCAL ; 5394 3 ERR_DESC, ! Address of the error descriptor ; 5395 3 POINTER; ! Pointer to get characters ; 5396 3 ; 5397 3 MAP ; 5398 3 ERR_DESC : REF BLOCK [8, BYTE], ; 5399 3 AP : REF BLOCK [, BYTE]; ; 5400 3 ; 5401 3 ERR_DESC = .AP [4, 0, 32, 0]; ; 5402 3 ; 5403 3 IF .TERM_FLAG THEN SND_ERROR (.ERR_DESC [DSC$W_LENGTH], .ERR_DESC [DSC$A_POINTER]); ; 5404 3 ; 5405 3 IF .TRANSACTION_OPEN ; 5406 3 THEN ; 5407 4 BEGIN ; 5408 4 ; 5409 4 OWN ; 5410 4 TMP_DESC : BLOCK [8, BYTE]; ; 5411 4 ; 5412 4 INIT_STR_DESC (TMP_DESC, .ERR_DESC [DSC$A_POINTER], .ERR_DESC [DSC$W_LENGTH]); ; 5413 4 LOG_FAOL (%ASCID'!%T!_!AS!/', UPLIT (0, TMP_DESC), TRANSACTION_RAB); ; 5414 3 END; ; 5415 3 ; 5416 3 IF NOT .CONNECT_FLAG ; 5417 3 THEN ; 5418 4 BEGIN ; 5419 4 TT_CRLF (); ; 5420 4 POINTER = CH$PTR (.ERR_DESC [DSC$A_POINTER]); ; 5421 4 ; 5422 4 INCR I FROM 1 TO .ERR_DESC [DSC$W_LENGTH] DO ; 5423 4 TT_CHAR (CH$RCHAR_A (POINTER)); ; 5424 4 ; 5425 4 TT_CRLF (); ; 5426 3 END; ; 5427 3 ; 5428 3 RETURN 0; ; 5429 2 END; .PSECT $PLIT$,NOWRT,NOEXE,2 P.AHX: .ASCII \KERMIT32\ ; 32 33 54 49 4D 52 45 4B 00BB8 P.AHW: .LONG 17694728 ; 010E0008 00BC0 .ADDRESS P.AHX ; 00000000' 00BC4 P.AHZ: .ASCII \!%T!_!AS!/\<0><0> ; 53 41 21 5F 21 54 25 21 00BC8 ; 00 00 2F 21 00BD0 P.AHY: .LONG 17694730 ; 010E000A 00BD4 .ADDRESS P.AHZ ; 00000000' 00BD8 P.AIA: .LONG 0 ; 00000000 00BDC .ADDRESS U.1416 ; 00000000' 00BE0 .PSECT $OWN$,NOEXE,2 ;TMP_DESC U.1416: .BLKB 8 ; 00308 U.1410= P.AHW .PSECT $CODE$,NOWRT,2 ;HANDLE_MSG U.1413: .WORD ^M<R2,R3,R4,R5,R6> ;Save R2,R3,R4,R5,R6 5384 007C 00000 MOVAB G^TT_CRLF, R6 ;TT_CRLF, R6 56 00000000G 00 9E 00002 MOVAB G^U.1416+2, R5 ;U.1416+2, R5 55 00000000' 00 9E 00009 MOVL 4(AP), R2 ;4(AP), ERR_DESC 5401 52 04 AC D0 00010 BLBC G^TERM_FLAG, 1$ ;TERM_FLAG, 1$ 5403 0D 00000000G 00 E9 00014 PUSHL 4(R2) ;4(ERR_DESC) 04 A2 DD 0001B MOVZWL (R2), -(SP) ;(ERR_DESC), -(SP) 7E 62 3C 0001E CALLS #2, G^SND_ERROR ;#2, SND_ERROR 00000000G 00 02 FB 00021 1$: BLBC G^TRANSACTION_OPEN, 2$ ;TRANSACTION_OPEN, 2$ 5405 27 00000000' 00 E9 00028 MOVW #270, (R5) ;#270, TMP_DESC+2 5412 65 010E 8F B0 0002F MOVW (R2), -2(R5) ;(ERR_DESC), TMP_DESC FE A5 62 B0 00034 MOVL 4(R2), 2(R5) ;4(ERR_DESC), TMP_DESC+4 02 A5 04 A2 D0 00038 PUSHAB G^TRANSACTION_RAB ;TRANSACTION_RAB 5413 00000000' 00 9F 0003D PUSHAB G^P.AIA ;P.AIA 00000000' 00 9F 00043 PUSHAB G^P.AHY ;P.AHY 00000000' 00 9F 00049 CALLS #3, G^LOG_FAOL ;#3, LOG_FAOL 00000000G 00 03 FB 0004F 2$: BLBS G^CONNECT_FLAG, 5$ ;CONNECT_FLAG, 5$ 5416 1F 00000000G 00 E8 00056 CALLS #0, (R6) ;#0, TT_CRLF 5419 66 00 FB 0005D MOVL 4(R2), R4 ;4(ERR_DESC), POINTER 5420 54 04 A2 D0 00060 MOVZWL (R2), R3 ;(ERR_DESC), R3 5422 53 62 3C 00064 CLRL R2 ;I 52 D4 00067 BRB 4$ ;4$ 0A 11 00069 3$: MOVZBL (R4)+, -(SP) ;(POINTER)+, -(SP) 5423 7E 84 9A 0006B CALLS #1, G^TT_CHAR ;#1, TT_CHAR 00000000G 00 01 FB 0006E 4$: AOBLEQ R3, R2, 3$ ;R3, I, 3$ 52 53 F3 00075 ; F2 00078 CALLS #0, (R6) ;#0, TT_CRLF 5425 66 00 FB 00079 5$: CLRL R0 ;R0 5428 50 D4 0007C RET ; 04 0007E ; Routine Size: 127 bytes, Routine Base: $CODE$ + 1502 ; 5430 2 SIGARGLST = .AP [CHF$L_SIGARGLST]; ; 5431 2 ; 5432 2 IF .SIGARGLST [CHF$L_SIG_NAME] GEQ %X'400' AND .SIGARGLST [CHF$L_SIG_NAME] LEQ %X'5FF' ; 5433 2 THEN ; 5434 2 RETURN SS$_RESIGNAL; ; 5435 2 ; 5436 2 PUTMSG_VECTOR [0] = .SIGARGLST [CHF$L_SIG_ARGS] - 2; ! No PC and PSL ; 5437 2 PUTMSG_VECTOR [1] = .SIGARGLST [CHF$L_SIG_NAME]; ; 5438 2 ! PUTMSG_VECTOR [2] = .SIGARGLST [CHF$L_SIG_ARGS] - 3; ; 5439 2 ; 5440 2 ! INCR I FROM 0 TO .SIGARGLST [CHF$L_SIG_ARGS] - 4 DO ; 5441 2 INCR I FROM 0 TO .SIGARGLST [CHF$L_SIG_ARGS] - 2 DO ; 5442 2 PUTMSG_VECTOR [.I + 2] = .(SIGARGLST [CHF$L_SIG_ARG1] + (.I*4)); ; 5443 2 ; 5444 2 Final_Status = .Putmsg_Vector [1]; ; 5445 2 $PUTMSG (MSGVEC = PUTMSG_VECTOR, ACTRTN = HANDLE_MSG, FACNAM = FACILITY_DESC); ; 5446 2 RETURN SS$_CONTINUE; ; 5447 1 END; ! End of KERM_HANDLER .EXTRN SYS$PUTMSG ;KERM_HANDLER U.37: .WORD ^M<R2> ;Save R2 5325 0004 00000 SUBL2 #40, SP ;#40, SP 5E 28 C2 00002 MOVL 4(AP), R1 ;4(AP), SIGARGLST 5430 51 04 AC D0 00005 CMPL 4(R1), #1024 ;4(SIGARGLST), #1024 5432 00000400 8F 04 A1 D1 00009 BLSS 1$ ;1$ 10 19 00011 CMPL 4(R1), #1535 ;4(SIGARGLST), #1535 000005FF 8F 04 A1 D1 00013 BGTR 1$ ;1$ 06 14 0001B MOVZWL #2328, R0 ;#2328, R0 5434 50 0918 8F 3C 0001D RET ; 04 00022 1$: SUBL3 #2, (R1), R2 ;#2, (SIGARGLST), R2 5436 61 02 C3 00023 ; 52 00026 MOVL R2, (SP) ;R2, PUTMSG_VECTOR 6E 52 D0 00027 MOVL 4(R1), 4(SP) ;4(SIGARGLST), PUTMSG_VECTOR+4 5437 04 AE 04 A1 D0 0002A MNEGL #1, R0 ;#1, I 5441 50 01 CE 0002F BRB 3$ ;3$ 07 11 00032 2$: MOVL 8(R1)[R0], 8(SP)[R0] ;8(SIGARGLST)[I], PUTMSG_VECTOR+8[I] 5442 08 AE40 08 A140 D0 00034 3$: AOBLEQ R2, R0, 2$ ;R2, I, 2$ 50 52 F3 0003B ; F5 0003E MOVL 4(SP), G^U.56 ;PUTMSG_VECTOR+4, U.56 5444 00000000' 00 04 AE D0 0003F CLRL -(SP) ;-(SP) 5445 7E D4 00047 PUSHAB G^U.1410 ;U.1410 00000000' 00 9F 00049 PUSHAB W^U.1413 ;U.1413 FF2E CF 9F 0004F PUSHAB 12(SP) ;PUTMSG_VECTOR 0C AE 9F 00053 CALLS #4, G^SYS$PUTMSG ;#4, SYS$PUTMSG 00000000G 00 04 FB 00056 MOVL #1, R0 ;#1, R0 5446 50 01 D0 0005D RET ; 04 00060 ; Routine Size: 97 bytes, Routine Base: $CODE$ + 1581 ; 5448 1 %SBTTL 'End of KERMIT.B32' ; 5449 1 END ! End of module ; 5450 1 ; 5451 0 ELUDOM ; PSECT SUMMARY ; ; Name Bytes Attributes ; ; $PLIT$ 3044 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $GLOBAL$ 300 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; $OWN$ 784 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; _LIB$KEY0$ 268 NOVEC,NOWRT, RD , EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) ; _LIB$STATE$ 2001 NOVEC,NOWRT, RD , EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) ; _LIB$KEY1$ 1168 NOVEC,NOWRT, RD , EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) ; $CODE$ 5602 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; . ABS . 0 NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(0) ; Library Statistics ; ; -------- Symbols -------- Pages Processing ; File Total Loaded Percent Mapped Time ; ; SYS$COMMON:[SYSLIB]STARLET.L32;2 12540 117 0 721 00:00.4 ; SYS$COMMON:[SYSLIB]TPAMAC.L32;2 43 33 76 15 00:00.1 ; COMMAND QUALIFIERS ; BLISS/LIS/MACH=(ASSEM,UNIQUE)/SOU:NOHEAD VMSMIT ; Compilation Complete .END U.1302